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Our View from the Bridge space has been 
severely shortened this time around by 
an embarrassingly long list of program 
corrections. We'll therefore skip the chatty 

opening and get right to this month's Ahoy! 

It's seldom that we devote feature space to a 
single product. But we think you'll approve of our 
departure from usual procedure after reading Vie 
MSD SD-2: An Indepth Report. Morton Kevelson 
takes the new disk drive apart, and puts the pieces 
together for you. (Turn to page 42.) 

The one software package that everyone gets 
around to owning sooner or later is a database. But 
not everyone winds up owning the database that's 

PROGRAM CORRECTIONS! 

If you missed last issue, be advised that new 
versions of our C-64 and VIC 20 Bug Repellents 
were introduced. If you'd previously typed in the 
versions that appeared in our April or May issues, 
you must update them to conform to the versions 
appearing last month and this month. 
Other program corrections are as follows: 
Regarding Sound Concept, the program lines pro- 
vided on page 98 that must be incorporated into all 
outside BASIC programs that make use of Sound 
Concept should have concluded as follows: 
62000 POKE l.INT ( AD/256 ): POKE 0, 
AD - 256 * PEEK (1):P0KE 828, 1:P 
OKE 782,3:RETURN 

The relevant lines of Test 1 of Memory Manage- 
ment should be corrected to read as follows: 

20 IFPEEK(251)=1G0T090 

50 G0SUB200:G0SUB300 

70 P0KE44,192:REM FOR VIC POKE 44 

,4 

200 PRINTPEEK(43);PEEK(44);PEEK(4 

5);PEEK(46) 

220 PRINTPEEK(51);PEEK(52);PEEK(5 

5);PEEK(56) 

230 RETURN 

Biorhythm contains a slight glitch which can be 
eliminated by correcting the relevant lines to read as 
follows (also, delete lines 155 and 255): 

4 5 IFLEN(BI$)<>100RLEN(DA$)O10TH 

ENG0T0275 

170 G0T0162 

250 PRINT"{CD) (CD) {CD} HIT ANY KE 

Y TO CONTINUE." 

265 DM$=STR$(CM%):DD$=STR$(CD%):D 

Y$=STR$(CY%) 

270 G0T049 

4 AHOY! 



right for him. In Database Buyer's Guide, Larry 
Bihlmeyer surveys some of the choices available for 
the VIC and 64. (Turn to page 25.) 

We haven't run a users group feature since our 
February issue. Not because of lack of interest, but 
because we were looking for the right author to be- 
gin our new semi-regular column devoted to the 
subject. We found Joycelyn Woods, membership 
secretary of New York City's leading Commodore 
users group. Shell tell you all about Starting or 
Joining a Users Group. (Turn to page 21.) 

Michael Kleinert and David Barron have returned 
to teach you how to manipulate your cursor in un- 
dreamed of ways. (Turn to page 37.) 

Richard Herring continues his six-part 
Educational Software series. Part V contains some 
of the most useful information yet provided for par- 
ents of aspiring scholars. (Turn to page 63.) 

We know you'll find the two utility programs fea- 
tured this issue particularly useful. Bob Spirko's 
Checklist will help even the average C-64 owner to 
put order into his life. (Turn to page 19.) And 
Renumbering Utility by Anthony Wood is as useful 
as it is short. (Turn to page 29.) 

As for games, we've got them, too. (We sure 
wouldn't bring them up if we didn't have them!) 
Brisk by Joseph Fusco will let you match 
card-sharking prowess with your Commodore 64. 
(Turn to page 41.) Wfiat's My Job? by B.W. Behling 
(author of Easy Access Address Book and / Got Bio- 
rhythm) will, as the saying goes, amaze your friends 
with its ability to guess their occupations. (Turn to 
page 11.) And Andy Van Duyne's Math Defender 
will let kids and adults alike bone up on their 
arithmetic while experiencing real arcade game 
excitement. (Turn to page 47.) 

You'll find all our regular features inside as well. 
That means Creating Your Own Games on the VIC 
and 64 wherein Orson Scott Card talks about de- 
signing the kind of compelling screen displays you 
need to hold a player's interest (turn to page 13); 
The Rupert Report, in which Dale Rupert launches 
into an exhaustive discussion of sequential files 
(turn to page 59): and Commodores, in which Dale 
unwinds from all that programming by teasing the 
brains of Ahoy! 's most daring readers. 

We'll permit ourselves just one bit of chat. How 
do you like our cover? We hope you do, because 
you're going to be seeing a lot of it. All future 
issues of Ahoy! will feature that design, with 
different specifics inserted in the screens. 

Thanks for coming onboard once again! 

— David Allikas 
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LETTER-QUALITY PRINTERS FROM CARDCO AND AMDEK • C-64 MEMORY 
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SYSTEM . NEW GAME RELEASES FROM ACTIVISION, MUSE, INFOCOM 

AND CBS • KNOWLEDGE ENGINEERING • BILLBOARD'S HOTTEST SELLERS 



ALL THE PRINTER NEWS 
THAT'S FIT TO PRINT 

Cardco, long known for produc- 
ing interfaces that connect the 
C-64 and VIC 20 to non-Commo- 
dore printers, now seem intent on 
cutting into their own sales with a 
line of letter-quality printers that 
connect to Commodore computers 
without an interface. 

The LQ/1, already seen in our 
ad pages, features standard fric- 
tion-feed and optional tractor- feed. 
Either serial or lineprint modes 
can be selected by means of a 
simple DIP switch operation. 
Printing speed is 14 characters per 
second; pitch can be 10, 12, or 15. 
Price is $649.95. 

The LQ/3, priced at $449.95, 
includes many of the features of 
the LQ/1. As with the LQ/1. its 
ESC sequence allows minimum 
increments of J/ 20 inch for carriage 
movement and % 8 inch for paper 
feed, making bold print, super- 
script, subscript, and underlining 
functions possible when used with 
an advanced word processor. 
Speed is 13 characters per second; 
pitch is 10. 

The more compact LQ/2 
($349.95) utilizes a rotating char- 
acter drum instead of a daisy 
wheel. It is a true portable, 
weighing only 6.6 pounds and fea- 
turing an optional internal battery. 
Printing speed is 13 characters per 
second. 

All three printers feature bidi- 
rectional printing with logic-seek- 
ing and a character set of 96. 

Cardco, Inc., 313 Mathewson, 
Wichita, KS 67214 (phone: 316- 
267-6525). 



Amdek Corporation has also re- 
leased three new letter quality 
printers, including a portable (the 
5025) that prints at 25 characters 
per second and two desktops: the 
5040 (40 characters per second) 




LQ/1: serial and lineprint modes. 
READER SERVICE NO. 17 



and RS-232 interfaces. 

Amdek Corporation, Printer 
Products, 2201 Lively Blvd., Elk 
Grove Village. IL 60007 (phone: 
312-364-1180). 

INCREASED C-64 MEMORY 

Sure, 64K is the accepted mi- 
crocomputer industry standard 
but since when have industry stan- 
dards meant anything to Commo- 
dore 64 owners? Leader Electron- 
ic Technology Company (LETCO), 
who gave us the first 64K RAM 
module for the VIC (the 64KV) 
have developed a 64K memory 




LQ/2: optional internal battery. 
READER SERVICE NO. 18 




LQ/3: has many features of LQ/1. 
READER SERVICE NO. 19 

and the 5055 (55 characters per 
second). As with automobiles, the 
price of increased speed is a high 
one: the printers retail for $799, 
$1675, and $1990 respectively. All 
include built-in Centronics Parallel 



Double your C-64's memory. 
READER SERVICE NO. 20 

expander for the 64. The 64KC 
RAM memory expander plugs di- 
rectly into the 64's expansion port, 
providing the user with eight sep- 
arate 8K blocks of paged memory 
that can each be selected by a sin- 
gle POKE instruction. 

Owners of the 64KV need only 
the 64KVA adaptor to use their 
VIC expander on the 64. The 
64KVA sells for $29.95. the 64KV 
for $109.95, and the 64KC for 
$139.95. LETCO is also develop- 
ing an expander that will allow up 
to 256K of memory. 

LETCO. 7310 Wells Road. Plain 
City, OH 43064 (phone: 614- 
873-4410). 

AHOY! 5 



COMMODORE'S 
GREATEST HITS 

Once again, we provide Bill- 
board Magazine's ranking of top- 
selling computer software in the 
categories of Entertainment, Edu- 
cation, and Home Management, 
for the week ended 4/28/84. Only 
the Commodore compatibles in 
the Top 10 or 20 are listed. Copy- 
right 1984 by Billboard Publica- 
tions. Inc.. compiled by the Bill- 
board Research Department, and 
reprinted with permission. 

Entertainment: Flight Simulator 
II, Sublogic (#1): Zork I, Infocom 
(#3); Beach-Head, Access (#4); 
Arclwii, Electronic Arts (#8); Pin- 
ball Construction Set, Electronic 
Arts (#9); Mystery Master: Mur- 
der by the Dozen, CBS Software 
(#11): Deadline, Infocom (#12); 
Zaxxon, Synapse (#13); Blue Max, 
Synapse (#16); Choplifier, Broder- 
bund (#17): Hard Hat Mack, 
Electronic Arts (#18); Sorcerer, 
Infocom (#20). 

Education: Mastertype, Scarbor- 
ough (#1): Music Construction Set, 
Electronic Arts (#2): Kinder Cotnp, 
Spinnaker (#3): Computer Study 
Program for the SAT, Barron's Ed- 
ucational Series (#4); Facemaker, 
Spinnaker (#5); Spellicopter, De- 
signware (#6): M.U.L.E., Elec- 
tronic Arts (#7); Type Attack, Sir- 
ius (#9); Story Machine, Spin- 
naker (#10). 

Home Management: Tlie Home 
Accountant, Continental (#1); Tlie 
Tax Atlmntage, Continental (#4); 
Multiplan, HesWare (#6); Home- 
word, Sierra On-Line (#8); Si- 
mons' BASIC, Commodore (#9); 
Paperclip, Batteries Included 
(#10). 

FURNITURE AND 
STORAGE DEVICES 

In the computer era. the simple 
flat desk has gone the way of 
parchment and quill pens. There 
is now an array of new furniture 

6 AHOY! 




Diskaddy holds up to 22 diskettes. 
READER SERVICE NO. 21 

and storage devices to make maxi- 
mum use of space in a crowded 
world . 

The fundamental design for ta- 
bletop computer shelves seems to 
be established: Sound Expansion 
has provided two sturdy models 
typical of that design. 



made of solid oak. They are 
deeper than many computer tables 
of this design, mainly for the pur- 
poses of consolidating wires, pow- 
er packs, and expansion boards. 

Sound Expansions, PO Box 53, 
House Springs. MO 63051. 

HollisCrafl's DeskMate features 
a rotating turntable for the moni- 
tor. Also, there is a slot above the 
second shelf to feed fanfold paper. 
The DeskMate is made of pine, 
weighs 15 lbs., and measures 36" 
in width, 13" in height and 12" in 
depth. It retails for $44.95. 

HollisCraft, PO Box 465, Oak- 
dale, MA 01539. 

Suncom is also getting into the 
act. Their System Station's basic 
unit consists of a desk at typing 
tabic height on four casters. This 
basic unit sells for $79.00. Option- 
al add-ons include a detachable 
monitor/disk drive stand and a 
printer/paper, diskette, book stor- 
age unit. 

Suncom Inc., 650 Anthony Trail, 




Both the one-shelf (pictured) and two-shelf Compubenches are solid oak. 
READER SERVICE NO. 22 



Sound Expansions* Compubench 
I has one shelf and measures 7" 
in height. 18" depth, and 1944 " in 
width. It retails for $49.95. The 
Compubench II, with two shelves, 
is 12" in height, 18" in depth. 
and 19% " in width and sells for 
$69.95. Both Compubenches are 



Unit E, Northbrook, IL 60062. 
Although Gusdorf has no new 
products of which we're aware, no 
computer furniture piece would be 
complete without a mention of 
them. They've been at it longer 
than most and have a wide array 
of products. 
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HollisCraffs DeskMate features a rotating turntable for the monitor. 
READER SERVICE NO. 23 



Gusdorf. 6900 Manchester Ave., 
St. Louis, MO 63143. 

Close Enterprises has introduc- 
ed two models of a disk storage 
unit. The Disk-O-Tcl Model DT 
(desk top) contains dust-proof 
room for 108 disks and is mount- 
ed on a ball-bearing turntable. 
The high-rise Disk-O-Tc! is the 
same unit except that it is mount- 
ed on a swivel arm. When at- 
tached by clamp to the desk edge, 
the unit sits eight inches above the 
desk surface. The high-rise retails 
for $59.95, the desk lop for 
$49.95. 

Close Enterprises, PO Box 
13903, Dept. 40, Arlington, TX 
76013. 

Finally, for the on-the-go (or 
on-the-run) programmer, MB In- 
ternational has provided the Disk- 
addy, which holds up to 22 5 V* " 
diskettes. Prices for the Diskaddy 
range from $7.99 to $21.99. 

MB International, Inc., 701 B 
Street, Suite 1300, San Diego. CA 
92101. 

WATCH THAT NEST EGG 

TOTL. Moneyminder is the lat- 
est C-64 release from the chicken 
outfit that brought you the variety 



of home and small business soft- 
ware pictured. This, a complete 
home accounting system, allows 
up to 110 user-defined accounts, 
with double entry transactions that 
can be spread across multiple ex- 
pense accounts. It will record up 
to 8400 transactions a year and 
provide both printed and graphic 
displays of actual v. budgeted ex- 



penses. Other features include a 
built-in database for tracking long- 
term assets and liability records, 
checkbook balancing and state- 
ments, and label file and year-end 
report generation. Price is $39.95. 

TOTL Software, 1555 Third 
Avenue, Walnut Creek, CA 94596. 

LEAVE IT TO BEEPER 

No one is calling it artificial in- 
telligence. That is still the stuff of 
which pulp novels are made. But 
the relatively new field of knowl- 
edge engineering is at least a baby 
step in that direction. 

In Silicon Valley and across the 
country, knowledge engineers are 
attempting to discover the process 
by which experts in given fields 
make crucial decisions. These rea- 
soning processes are then codified 
and programmed into computers. 
In this way, computers can be 
guided into simulating human in- 
ferential reasoning in specific 
fields of endeavor. A finished pro- 
gram is called an expert system. 
The advances have been made 
possible by the new breed of pow- 




Chicks go crazy over home accounting programs like TOTL. Moneyminder. 
READER SERVICE NO. 24 
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35 Great Games to Play! 

Create 35 amazing games lor your 
Commodore 64. Simply lype the complete 
program listing into your computer and slarl 
playing Gamesare written in Commodort til 
BASIC and include color, graphics, sound, 
instructions lo players. and scoring. While 
you're having fun. you'll learn more about 
programming. Eacfi game features 
suggestions lor programming 
variations— change the games lodo exactly 
whal you want. Shoot the rapids, pilot a 
spacesntp, face at Le Wans and more? 
Choose irom Arcade, Board and Educational 
games. Your Commodore 64 has never been 
so much tun 1 1 20 pages $9.95 paper. 



How to Program Your 

commodore 




Master Your Commodore 64! 

No experience necessary — this book starts at 
Ine beginning Clear, straightforward example 
programs help you understand how programs 
work and how your computer works. How to 
useandenjoy essential hardware — including 
cassette-tape storage, dtsk drive and printer. 
You'll learn the basics ol BASIC- How lo write 
and use loops. Build and use arrays. Edit and 
mprove programs Finding and fixing 
problems. Math operations, strings, storing 
data on disk or tape How to use the printer. 
All about exciting features like sound, music, 
graphics and color Now you can really 
master youf amazing COMMODORE 64! 336 
pages 59. 95 paper. 



PurcnaseHPBooks computer cooks al your 
local bookstore or computer outlet. Visa & 
Mastercard orders accepted by phone. Call: 
Toll Free 800/528-4923. Or send check or 
money order for price of book, plus St .95 p/h 
lor each book to address below Allow 4-6 
weeks for delivery 

Box 5367, 

IrDOOKS Tucson. AZ 85703 



Reader Service No. 39 



crt'ul computers which can be pro- 
grammed to solve problems using 
words and symbols, not only 
numbers. 

According to a story by Robert 
Reinhold that appeared in The 
New York Times, knowledge en- 
gineering is currently being used 
to aid in prospecting for minerals, 
analyzing chemicals, configuring 
computers, and diagnosing diseas- 
es. New fields being pursued arc 
military technology, investment 
banking, and genetic engineering. 
Major corporations such as Lock- 
heed and Xerox are setting up 
their own knowledge engineering 
divisions, and knowledge engin- 
eering consulting firms are being 
established in a race for new cli- 
ents. 

Here's how it works, A knowl- 
edge engineer interviews experts 
in a particular field, trying to 
draw from each of them the meth- 
ods by which they reach decisions 
and conclusions. According to the 
story in the Tunes, the experts 
bristle at first, maintaining that 
their most important decisions are 
based on intuition for the most 
part. However, in most cases, in- 
tuitive decisions are founded on 
reason and can be reduced to a 
series of "if-then" statements. 

From this exhausting process of 
interviews of dozens of experts, 
hundreds, if not thousands, of "if- 
then" statements are derived, and 
a matrix of rules and connections 
forming the basis of decisions in 
that discipline is created. Since 
each rule or connection will not 
carry equal weight, each is given 
a numerical value. The informa- 
tion is all bound together in what 
is called a set of inference rules- 
defining the relationship between 
the evidence offered and the con- 
clusions that can be drawn from 
it. Human reasoning is thus simu- 
lated when the computer "chains" 
through the rules: either reasoning 



toward a conclusion from given 
facts or backward from a desired 
result or solution toward condi- 
tions which would bring it about 
or evidence that would support it. 

This "inference engine" is ap- 
plied to data on a certain problem 
that the user inputs. After all the 
significant data is made available. 
the engine asks the user what 
questions he would ask to solve 
the problem. The engine then 
goes to work, scanning rules, sift- 
ing facts, and applying one to the 
other. 

The engine, the expert system, 
only offers advice. It is ultimately 
up to the user and the executives 
peering over his shoulder to make 
the final decision. For now. the 
buck still slops here. That is, we 
think it does. We can't decide. 
The evidence points that way. A 
decision on the matter is pending. 

SPRITE PROGRAM 

SpryieByter provides C-64 users 
with over 60 commands for creat- 
ing and manipulating sprites. You 
can create up to 184 sprites in one 
file and store them on disk or 
tape. Working sprites are dis- 
played in all four shape modes 
(normal, expanded-x, expanded-y. 
and expanded-xy). Other features 
include movie mode (for anima- 
tion review), data entry mode, 
and Game Maker utility for creat- 
ing BASIC programs from sprite 
definition files. Control is via key- 
board or joystick. The disk-based 
program retails for $34.95. 

Microtechnic Solutions, P.O. 
Box 2940, New Haven, CT 06515 
(phone: 203-389-8383). 

NEW GAMES UPDATE 

Activision, longtime lords of 
dedicated video games, have en- 
tered the C-64 market with two 
new games and four adaptations. 

The Eastern influence is obvi- 
ous in Zenji, which requires the 
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player to connect a glowing maze 
of elements (the Many) to a pul- 
sating source (the One) to create a 
single unified green image, or 
Zenji. The puzzle/maze game is 
more difficult than it sounds. 
growing harder with each success- 
ful encounter. 

Toy Bizarre is the latest assem- 
bly line game to roll off the as- 
sembly line. This one places your 
character in a toy factory gone 
berserk, where he must chase 
down escaped toys, turn off hiss- 
ing valves, jump across assembly 
lines, and shun Hefty Hilda dolls. 
Safety checks, coffee breaks, and 
the timeclock add to the need for 
strategy. 

H.E.R.O. seats you in a chopper 
which you must pilot to save min- 
ers trapped inside an active vol- 
cano. You can use your laser hel- 
met to bore through granite walls, 
and dynamite charges to blast 
through impassable tunnels. 

Beamrider pits a light warrior 
against enemy starships who have 
placed a shield around his planet. 
He must slice through all 99 lay- 
ers of the sector and reopen the 
route to space. 

The Activision Decathlon allows 
up to four players to compete in 
the ten Olympic events. 

Pitfall, the vine-swinging clas- 
sic, takes Pitfall Harry on a quest 
for jewels through a jungle 
swarming with dangers. 

Price of each of these games is 
$34.95 for disk, $39.95 for car- 
tridge. Coming 64 adaptations in- 
clude River Raid, Space Shuttle: 
A Journey Into Space, and Pitfall 
II: Lost Caverns. 

Activision, Inc., 2350 Bayshore 
Frontage Road, Mountain View, 
CA 94043 (phone: 415-960-0410). 

Muse has announced Beyond 
Castle Wolfenstein , a sequel to 
the action/adventure game that 
follows a GI on his escape from a 
Nazi prison located in an ancient 



castle. Here, he must infiltrate 
Hitler's Berlin Bunker and assas- 
sinate the fuehrer. The sequel is a 
"stand alone."* understandable 
and playable even by those who 
have not seen the original. On 
disk for the C-64; $34.95. 

Muse Software, 347 N. Charles 
Street, Baltimore, MD 21201 
(phone: 301-659-7212). 




READER SERVICE NO. 42 

From Infocom comes a new 
textual adventure titled Seastalker. 
This game has been written in the 
tradition of Jules Verne's 20,000 
Leagues Under the Sea, with the 
gamer in command of the under- 
water ship "Scimitar." Already old 
pros at interactive fiction software, 
the designers at Infocom have 
added a new angle to this game. 
They have designed it with the 
beginner in mind, as it can be 
played by children as young as 
nine. This is the first in a new se- 
ries of games designed for this 
growing market. Another angle to 
Seastalker: it will ask for, and 
utilize, the gamer's name as the 
hero for the adventure. 

Infocom, Inc., 55 Wheeler St., 
Cambridge, MA 02138 



(617-492-1031). 

From CBS Software comes the 
educational Webster: Tfie Word 
Game. For one or two children 
ages six and up, Webster will help 
children recognize familiar words, 
as well as assist them with spell- 
ing. Multiple skill levels allow the 
children to progress from one- syl- 
lable words to more complex 
terms. Available on cartridge or 
disk for the C-64. 

CBS Software, 1 Fawcett Place, 
Greenwich. CT 06836. 

Not wanting to miss out on the 
Commodore bandwagon, our 
northern cousins have begun issu- 
ing games for the C-64. Inter- 
phase Technologies has announced 
the release of Viking Raider and 
Blockade Runner. 

Blockade Runner has the player 
as the commander of a space ves- 
sel attempting to transport sup- 
plies through enemy lines and as- 
teroid belts to the home planet. 
This point-of-view game features 
multiple levels and fast action. 

Viking Raider is Interphase's bid 
to put a halt to software piracy. 
The game is a diskette/cartridge 
combination: the cartridge simpli- 
fies interface with the computer, 
while the disk allows for substan- 
tial program storage. Thus, with- 
out the cartridge, a copy of the 
disk is useless. Viking Raider is 
an action-adventure game that 
combines graphics and interactive 
text. 

Interphase Technologies, Inc., 
6391-F Westminster Hwy., Rich- 
mond, B.C., V7C 4V4, Canada, 
(604) 270-8222. 

From the shores of merry En- 
gland comes a pair of new C-64 
games. Bubble Bus Software has 
announced the release of Flying 
Feathers and Bumping Buggies, 
adding to their inventory of games. 
Address is 87 High Street, Kent 
TN9 1RX, England. Phone num- 
ber is 0732-355962. 
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In our May issue we printed a letter from William 
Branch of Canaan, VT, asking if we know of a 
genealogy program that would enable him to con- 
struct a family tree. Se\'eral readers responded to 
our plea for information, one of them being our own 
Richard Herring. He told us about Family Tree by 
Genealogy Software, P.O. Box 1151, Port Huron, Ml 
48061 (pl'wne: 519-344-3990). For the VIC or 64, 
the price is $39.95. For the 64 only, Richard in- 
formed us, there is Family Roots from Quinsept, P.O. 
Box 216. Lexington, MA 02173. Price is $185.00 plus 
$3.50 postage and handling. Thanks also to Vernon 
L. Wliorl of Lexington Park, MD and Mrs. V. 
Wronski of Boston Bar, B.C. 

I just picked up your April issue, and wanted to 
write to commend you on the fine job you're doing. 
Each month you guys get better and better. There 
are a couple of things I'd like to point out: 

1) The article on Easy Script, and its quick refer- 
ence sheet, was excellent: only there's one command 
that Morton Kevelson left out. I only know about it 
because I discovered it by accident. If you type tl 
CONTROL/3 or fl CONTROL/f, the program will 
play a little song for you. 



COMMODORE OWNERS 
WE'LL CHECK YOU OUT 



Mr Tester TM 

Is your Commodore 64 TM 
Disk Drive, Printer, Memory, 
Joystick, Monitor and Sound 
Chip operating correctly? 

You may never know 
lor sure. Mr. Tester is a 
complete diagnostic that 
tests: 
1 .) Full joystick operation 

in all axis . 
2.) Continuous or standard 
comprehensive memory 
test. 
3.) CommodoreTM SID chip 
lest (or sound analysis. 
4.) Screen alignment and 

color test. 
5.) Complete read/write Disk 

Track and Block Test. 
6.) Diskette format analysis to 

check Floppys. 
7.) Complete printer test. 
8.) Complete keyboard test. 
9.) Cassette read/write test. 

All this for only 

$29 95 




order from 



N-W D.st. Inc. 
1342B Route 23 
Butler, N.I. 07405 
201-838-9027 



Reader Service No. 44 



2) My copy of Bug Repellent works fine, except 
that if I print it to the screen, I can't get it to stop, 
and lose the hist few line numbers. This means that 
I have to output to the printer every time. Can't 
something be done about this? 

Brad Morris 
Waterloo, IA 

Thanks for the information about Easy Script. 
Brad. As for your problem with the Bug Repellent, 
we can 7 overemphasize the fact that you must read 
the introduction to each of our programs before typ- 
ing them in! If you'll refer to the short program in- 
troduction on page 69 of this issue, you'll find the 
solution to your problem. 

I just found Ahoy! on the newsstand, and was hap- 
py to see such an excellent magazine on the market. 

Payment for a one-year subscription is enclosed. 
I'd also like to get all the back issues. How do I go 
about ordering them? 

Stephen Marhoffer 
Union, NJ 

See our back issues ad on page 36 Our first issue 
is sold out, but we're offering photocopies of that is- 
sue's programs and feature articles for $4.00. 

I just read the interesting article on spreadsheets 
(May '84) and found it very helpful. As a new com- 
puter owner, I've found that one of the worst areas 
of marketing and information by computer compan- 
ies and the Media is what to do with the blessed 
things. 

In the six months of reading I've done I have 
found nothing really useful to my 64 for around the 
house. Lots of games and some "make work" pro- 
grams. For example, keeping a computer checkbook 
is very possible, but more time-consuming than to 
do it the old-fashioned way on paper. 

Now, my wife is going to open her own business, 
and I'm trying to figure out how we can use the 64 
to help us. I can think of a few applications (mailing 
lists, accounts payable, etc.) but do not ever recall 
seeing an article in any magazines about practical 
applications for a computer in a small business. I 
would like to see one that lists the uses, and tells 
what type of software would be necessary. 

Does a spreadsheet do it all, or do I need a data- 
base as well? The same kind of article would be 
useful for the home as well. 

Richard Peterson 
Bedford, TX 
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By B. W. Behling 



Perhaps you recall a T.V. show of a sim- 
ilar name that was popular in the late 
60's? This is a computerized version of 
that show, with your C-64 playing the 

part of the panel of experts. It is a game that will 
exercise your mind rather than your joystick hand. 
The game starts by knowing two occupations and 
learns more as you proceed. When the program is 
first run you will be asked if you want to load all 
previous jobs. If this is the first time you are using 
the game, answer "NO" or "N" and continue on; 
we'll come back to this later. 

The next thing you will see is the main board list- 
ing the instructions for the game and asking if you 
are ready to continue. At this point you can list all 
the jobs it knows or you can continue on to the 
game proper. If you type *'L" all the jobs it knows 
will be listed. Typing '"Y" will call up your first 
question. As the game proceeds it will try to guess 
the occupation you are thinking of by asking short 
questions that you answer with a "Y" or "N". If 
the game asks a question that is not a definite "Y" 
or "N" answer you should answer with whatever is 
most correct, i.e.: 

"Do you work mostly outdoors?" For a 
model, answer "N". (Although some 
work outdoors, most work in a studio.) 



After the game has exhausted its supply of ques- 
tions it will make a guess based on the answers you 
have provided. If its guess is correct it will ask for 
another job and start over. If its guess is incorrect it 
will give up and ask for the job you were thinking 
of. Next it will ask you to supply a question to dif- 
ferentiate between its guess and your answer. In the 
beginning you should use broad general questions 
and later move up to more specific questions, i.e.: 

Beginning: 
Computer's guess: FARMER 
Your job: POLICE OFFICER 

Sample question: Do you wear a uniform? 
Later on: 
Computer's guess: DOCTOR 
Your job: NURSE 
Sample question: Do you assist doctors? 

Jobs should be no longer than 19 letters and spac- 
es and questions should be no longer than 38 letters 
and spaces. The program will automatically add the 
appropriate question marks, so these should be left 
off your questions. 

Jobs and questions, once entered, are kept in vari- 
able AS(0-2000) and are saved in file #l"Jobs AS" 
upon command at the end of the game. I would rec- 

Continued on page 23 
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PART II: THE WORLD OF THE GAME 



By Orson Scott Card 

WILL PLAYERS WANT TO STAY IN THE WORLD THAT YOU CREATE 

FOR THEM? THE SCREEN DISPLAY IS A VITAL PART OF ANY 

ACTION GAME THAT TELLS A STORY. 




rcade-style games have a lot of things in 

common with a movie or a book. One of 

the most important is that games can create 

a world that the player lives in while he's 

playing — and, sometimes, for long afterward. 

You've probably read a book or seen a movie that 
you wished would never end. Tolkien's Lord of she 
Rings affects a lot of people that way— they even 
read the appendix at the end of the book, just so it 
won't be over. Star Trek did it for others— the end- 



less reruns have their audience. Storytellers can cre- 
ate worlds for people that they could never live in 
otherwise. 

And computer games have added a whole new di- 
mension to that. You don't just read about what 
other people did, or watch other people act their 
way through a movie. You actually control one of 
the actors. You can decide what happens next. 

A good game designer can give you experiences 
you won't ever have in the real world. For instance. 
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Joust lets you mount a flying ostrich; you rise into 
flight by making the bird flap its wings, and then 
enter into combat with other mounted enemies. Not 
what you expect to have happen tomorrow morning 
when you finish your Wheaties, is it? 

Even in games that don't give you such a radical- 
ly new experience, living in the milieu of the game 
can be compelling. After playing Lode Runner for 
four hours (and I still only got to level 93), when I 
read a book I found my brain was continuing the 
game. Instead of reading along to the end of a line, 
then skipping left and down to the next one, I found 
that my eyes wanted to dig holes in the line and 
jump down, or climb ladders up the page. It made 
reading difficult, and it also made it clear to me that 
the game experience has staying power in the mind. 




The concept 
of Tempest is 
abstract, but 
the game's 
shapes and 
patterns have 
a compelling 
visual rhythm. 



There are many ways a game world can have 
such powerful effects on the players who dwell in 
it. The sheer beauty or realism of a dazzling screen 
display can do it. Novelty helps, too— players are 
obviously more excited when a game shows them 
something they haven't seen before. If the display is 
active, so much the better — the world will feel more 
complete if things are happening. It is not just 
"bells and whistles" when the visual display is ani- 
mated, realistic, complete, even when these elements 
don't pertain directly to the action. 

WHERE DO GREAT DISPLAYS 
COME FROM? 

Stunning screen displays don't come out of no- 
where. There must be a strong concept. Sometimes 
the concept is obvious. In a football simulation, for 
instance, the game itself determines the general out- 
lines of the display. But game designers can use the 
same basic idea in wildly different ways. 

Sometimes the story of the game suggests the 
shape it should take. The broad outlines of previous 
climbing games gave Donkey Kong its basic shape- 
horizontal surfaces, ladders, obstacles to jump over. 
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But the story of the gorilla that carried off Mario's 
girlfriend and carried her upward into a building un- 
der construction was the idea that made Donkey 
Kong's display memorable. Steel girders, scaffold- 
ing, oil barrels, elevators, conveyor belts — these 
opened up possibilities for action, obstacles, and 
animation that no other climbing game could match 
at the time. 

Sometimes the concept is abstract, purely visual, 
like the arcade game Tempest, in which the player 
controls a figure that moves around the perimeter of 
shifting geometric shapes, firing downward at the 
center, from which enemy shapes arise in a deadly 
attack. There is no real world situation even remote- 
ly like it. Yet the shapes and patterns have a visual 
rhythm that makes Tempest a compelling game just 
to watch, let alone play. 

Ultimately, memorable displays come out of 
someone's mind. Unimaginative games are created 
by programmers, whose only concern is the creation 
of tight, effective code. There is a beauty in good 
programming, but players don't experience the code 
—they experience the sights, sounds, and actions 
that come from the television set. Good paintings 
come from artists who sec beyond the techniques of 
perspective, chiaroscuro, and color, who have a 
clear vision of what the painting ought to be, and 
use their techniques only as a means to that end. 
Likewise, good visual displays in computer games 
come from designers who regard programming tech- 
niques merely as a means to an end, not an end in 
themselves. 

In other words, if you're going to create a really 
memorable game, it won't be enough just to learn 
programming techniques. You have to think of good 
things to do once you've mastered them. In fact, a 
really good game idea can often lead you to solve 
programming problems or develop programming 
techniques that other people have not thought of yet. 

It works both ways, though. As you learn the 
methods of programming, new possibilities occur to 
you. You begin to think, with this technique I can 
do this or that, and a humdrum display suddenly 
takes on life and power. 

Does it sound mystical and magic? In a way, it 
is. Game programming isn't math or logic, it's art. 
Or rather, it's math and logic used as the tools to 
create art. (And you thought you were just manipu- 
lating loops, branches, variables, and vectors!) 

PRINTING A RANDOM SCREEN 

Many games keep interest alive by setting up a 
new screen every time you play. A randomly gener- 



atcd display must be carefully planned, however, so 
that the game is still playable. 

The basic technique is to set up a group of dis- 
play elements, like pieces in a board game. Each 
element will be either a single character or a com- 
plex character stored in a string variable. The larg- 
est piece in our example program will be an ocean 
liner, four characters wide. The other movable 
pieces are a cruiser, two characters wide, and a 
quick little speedboat, which consists of a single 
character. Then we'll have small stationary buoys, 
one character in size, and lighthouses, which consist 
of two characters stacked one atop the other. 

(To demonstrate the methods of setting up a ran- 
dom screen, I could ask you just to imagine the 
shapes. But little groups of letters and numbers 
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moving around the screen aren't very satisfying. So 
I'm including a set of seventeen custom characters 
and the subroutine to set up a custom character set. 
I won't even attempt to explain what's going on, 
and you can leave out these lines— 500 through 510 
and 1000 on. It will save you half the typing in this 
program— but you'll miss most of the fun of the dis- 
play. You must have a line 500, but it can be 500 
REM.) 

FITTING THE DISPLAY TO THE GAME 

Let's keep the game concept simple. The player 
controls a small boat that starts at the bottom of the 
screen. A current is irresistibly moving the boat up 
the screen toward the top. It will drift upward, no 
matter what the player does. However, the player 
can move the boat slowly from side to side. 

As the boat drifts up the screen, it must avoid 
various obstacles. There are large and small boats 
docked in the river. There are also lighthouses. A 
collision with a lighthouse is total disaster— the boat 
sinks. A collision with a ship can be a serious prob- 
lem, depending on the ship's size. Collisions with 
the small buoys in the water cost only a few points. 



However, if a ship is colored green, the player's 
boat needs to dock with it in order to exchange car- 
go — there are lots of points for touching each green 
ship, and even more for making it to the top of the 
screen. 

When the boat reaches the top of the screen, it 
starts over again at the bottom — but with a new, 
randomly generated arrangement of ships, lighthouses, 
and buoys. This means that, for the game to work, 
we must come up with a new screen display every 
few minutes. 

In setting up a program to generate the screen dis- 
play, we have to keep several things in mind: 

1 . We don't want to PRINT any ships or lighthouses 
or buoys on top of or touching each other. 

2. We want to have some random areas of the 
screen blank — a good mix of the different ships fac- 
ing in different directions, lighthouses, buoys, and 
blanks. 

3. We want the screen to look random — things 
shouldn't be lined up in neat rows and columns like 
an orchard. 

4. We want lots of different colors. 

Here is a plan that will enable us to meet these 
requirements: 

Divide the screen into cells. The widest figure, 
the ocean liner, is four characters wide. The tallest 
figure, the lighthouse, is two characters high. In 
order to leave at least one blank space above, below, 
and beside every figure, we'll think of the screen as 
if it were divided into little boxes, or cells, six 
characters wide and three characters high. 

Random numbers. Our routine must randomly 
decide which figure to put in each cell — or whether 
to put a figure in at all. Also, we must have another 
way to randomly decide where within the cell to 
PRINT the figure. With cells six spaces wide, even 
the ocean liners have one space leeway from side to 
side, and the narrowest objects — buoys, lighthouses, 
and speedboats— could be in any of five different 
positions within the cell. We need this random place- 
ment within the cell because if every figure were 
PRINTed at the lefthand edge of its cell, we'd get a 
neat all-in-a-row appearance. Another random rou- 
tine must decide whether to have a ship face left or 
right. And. finally, we must have a random number 
to decide what color the ship should be. (Lighthous- 
es will always be white; buoys will always be black.) 

This means we need to generate four random 
numbers and two index numbers. The index variable 
/ will set the row number— we'll use every third 
row. The index variable J will set the cell number— 
we'll use every sixth column to start a cell. We'll 
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generate a random number K to determine it' a cell 
will be blank or, if it is not blank, which figure it 
will contain. We'll use the random number L to set 
the position of the figure within a cell, the random 
number M to choose among five possible colors, 
and the random number N to choose which direction 
the figure will be facing. 

Set up the building blocks. The figures that we 

put into she cells Lire like building blocks, which are 
set up in a subroutine executed once, at the begin- 
ning of the program. The three ships are stored in 
the string array SH$(.v.v). Each ship will have two 
possible shapes, one for moving left, the other for 
moving right. The first index in the array (the x in- 
dex) will determine which ol the three ships is dis 
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played: the second index (y) determines which direc- 
tion the ship will face. If the .v index is 0, the ocean 
liner will be displayed: 1 is the cruiser, and 2 is the 
speedboat. If the v index is 0. the ship will face 
left: if I. then right. 
This is done in lines 520 and 530 of the program: 

5 20 SH$ ( , ) =" @ ABC" : S H $ ( , 1 ) = " DEF 
G":SH$(1 ,0) = "HI":SH$(1,1)="JK" 
530 SH$(2,0) = "L":SH$(2,1)=' , M":BU$ 
="N":LH$="0"+CHR$(17)+CHR$(157)+" 
P" 

GENERATING THE RANDOM DISPLAY 

In the program Random Display on page 86, lines 
640 to 670 contain the screen generating subroutine. 
In addition, lines 700. 710, 720, 730, and 740 each 
contain sub-subroutines to PRINT one of the figures 
within a cell. Let's look at those routines closely 
here. (If you remember last month's column, we 
also use the variable BE to contain the number of 
the last usable line at the bottom edge of the screen. 
and the variable RE to contain the number of the 
last usable column at the right edge of the screen.) 



640 PRINT CHR$( 147) : FOR 1=0 TO IN 
T(BE/3) :N = INT(RND(9)*2) :F0R J=0 T 
INT(RE/6) 
645 M=INT(5*RND(9)) 
650 K=1+INT(RND(9)*10):0N K GOSUB 
700 ,670,710, 670 , 720 , 670 , 730 , 670 , 
740,670 

660 NEXT:NEXT:RETURN 
670 RETURN 

In line 640. we clear the screen— CHR$( 147)— and 
then begin two nested loops. The outer loop sets the 
variable / to every third line, starting at the top of 
the screen (0) and ending before the bottom line 
(BE). The inner loop sets the variable J to every 
sixth column starting at the left edge of the screen 
(0) and ending before the right edge (RE). Within 
the line loop (I), but outside the cell loop (J), we 
generate the random number N. This means that ev- 
ery figure in a given row will face the same direc- 
tion, but that any row can face either left or right. 

Notice that the nested loops mean that we will 
start at the upper left-hand cell, deal with each cell 
in the top row. and then jump down to the third 
row and do each cell in that row from left to right. 
until we reach the bottom right-hand corner of the 
screen. 

Line 645 sets the variable M to a number between 
and 4. This number will be an index into the col- 
or-assignment array. CL$(lvj, which has been previ- 
ously set up so that each element in the array con- 
tains a different color character. When PRINTed. 
each color character causes all other characters 
PRINTed afterward to be the chosen color. It's just 
as if you pressed the CTRL-color or Commodore- 
color key combinations. 

Line 650 sets K to a random number from 1 to 
10. Then the ON statement uses K to jump to one 
of ten subroutine lines. Notice that half the subrou- 
tine lines arc 670, and line 670 docs nothing except 
RETURN. This means that approximately half the 
time, the ON statement will do nothing — leaving ap- 
proximately half the cells on the screen blank. The 
other five lines lead to subroutines that PRINT one 
of the five possible figures on the screen. This 
means that if any figure is PRINTed in the cell at 
all, il has an equal chance of being any of the five 
figures. 

What if we wanted many more buoys than any 
other figure? We could adjust the chances by replac- 
ing line 650 with these two lines: 

650 K=1+INT(RND(9)*16) 
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655 ON K GOSUB 670,670,670,670,67 
0,670,670,670,730,730,730,730,710 
,700,7 20,740 

About half the cells will still be blank, but now a 
quarter of the cells will contain buoys, and the other 
four Figures will fairly evenly divide the remaining 
fourth of the cells. 

Line 660 closes both loops and. when the whole 
screen is set up, returns from the subroutine. Line 
670 is the empty subroutine that causes a cell to re- 
main blank. 

Here are the five routines that actually PRINT the 
figures in the cells. Each routine ends with a RE- 
TURN statement. 

700 PRINT VP$(I*3)TAB(6*J)CL$(M)S 

H$(0,N) :RETURN 

710 L=0:IF ( J+1)*6<=RE THEN L=INT 

(RND(9)*4) 

715 PRINT VP$(I*3)TAB(6*J+L)CL$(M 

)SH$(1,N) : RETURN 

720 L=0:IF (J+1)*6<=RE THEN L=INT 

(RND(9)*5) 

725 PRINT VP$(I*3)TAB(6*J+L)CL$(M 

)SH$(2,N) :RETURN 

730 L=0:IF (J+1)*6<=RE THEN L=INT 

(RND(9)*5) 

735 PRINT VP$(I*3)TAB(6*J+L)CHRS( 

144)BU$:RETURN 

740 L=0:IF (J+1)*6<=RE THEN L=INT 

(RND(9)*5) 

745 PRINT VP$(I*3)TAB(6*J+L)CHR$( 

5)LH$:RETURN 

Because there isn't room within a cell to move the 
ocean liner around, the routine at 700 is the simplest. 
It finds the cell by PRINTing cursor-down character 
contained in the string VP$(x)~ the right row is 
found by multiplying 1*3. Then it TABs in to the 
right column number for the cell — J*6. It PRINTs 
the color— CL$(M)— and the ship itself— SHS(O.N)— 
with N determining which way the ship is facing. 

Each of the other routines takes two lines. The 
first line of each pair sets L to 0. Only if the eel! 
does not extend beyond the right-hand edge of the 
screen is L set to a random number. When the fig- 
ure is PRINTed in the next line, the random num- 
ber L is added to the TAB number to place the fig- 
ure in its random position within the cell. 

That's all. Each time the subroutine at 640 is 
called, the whole screen is cleared and then set up 
randomly, but according to strict rules that make 
sure the screen display works. 



The rest of the program is pretty well self-explan- 
atory. Line 10 routes the program to the setup rou- 
tines. Lines 100 to 120 call the screen generating 
subroutine, then wait until any key is pressed before 
creating a new screen. You can keep generating 
new screens by continuing to press any regular key. 
To slop the program, press RUN/STOP-RESTORE. 

Lines 600 to 620 set up the vertical movement 
strings (HOME and cursor-down characters) and the 
color array CL$(x). 

LAUNCHING THE SHIPS 

The random screen is fine— but those ships shouldn't 
have to stay at anchor all the time. Let's launch 
them, get them moving. 

We'll arrange the screen like this: At the top 
there'll be a row of buoys, lighthouses randomly ar- 
ranged. These won't move. Then there'll be a few 
blank rows in which the ocean liner will sail back 
and forth. Then another row of buoys and lighthous- 
es, then some rows where the cruiser will move- 
only twice as fast as the ocean liner. More buoys 
and lighthouses, and then a space where the speed- 
boat will zip along twice as fast as the cruiser and 
four times as fast as the ocean liner. Finally, near 
the bottom of the screen there'll be one last row of 
buoys and lighthouses. 

Most of this program. Moving Display, is the 
same as the Random Display program, but to avoid 
confusion, both programs will be printed in full on 
pages 86 and 87. 

The screen is still generated randomly, but now 
the only figures that will be put on the screen at 
first are buoys and lighthouses, and instead of cells 
six columns wide, the cells will be only two col- 
umns wide. The lines from 640 to 710 are changed 
accordingly. When executed, this routine puts four 
rows of buoys and lighthouses on the screen. 

Another change is in the ship's shapes, which are 
assigned in lines 520 and 530. Now, any ship that 
will move left has a blank space added to the right 
side of the figure, and any ship that will move right 
has a blank space added to the left side. This means 
that as the ships move along, the} will automatically 
erase one space behind them— we don't have to 
PRINT a blank to erase the ship at its old position. 
This means there'll be no blinking when the ships 
move. 

Since the long ocean liner will reach the right- 
hand edge of the screen sooner than the smaller 
ships, and the cruiser sooner than the speedboat, 
each of them must have its own right-hand edge 

Continued on page 94 
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BOOK REVIEW 



THE WORKING 
COMMODORE 64 by 

David Lawrence (Creative Com- 
puting Press, 1984; $9.95). 176 
pages, softbound. 

Vie Working Commodore 64 is 
a programmer's delight! Nonpro- 
grammers can enter its programs 
for their general utility, but the 
programmer can harvest it for its 
subroutines and programming 
ideas. Beginners may find this 
collection of 20 programs rough 
going. All other skill levels will 
find valuable routines. The book 
is a treasure house of useful tech- 
niques which can be adapted to a 
wide variety of programs. 

All programs are presented in 
modules, many of which can 
stand alone or be transported to 
other programs without change. 
The reader can enter each mod- 
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ule, most of which are short, and 
test it before appending it to other 
routines which comprise the com- 
plete program. 

The author provides a commen- 
tary on each module, relating it to 
the other parts of the program. 
Line-by-line annotations and in- 
structions for testing the module 
complete each subsection. The an- 
notations are full of gems. For 
example, in the "Artist" pro- 
gram, Lawrence demonstrates an 
easy technique for accessing all 
16 of the 64's colors without hav- 
ing to use the Commodore key. 

Reading a list of the complete 
programs doesn't indicate how 
useful this book is. The complete 
programs include a text editor, a 
drawing routine, a mini-database, 
some educational drills, and some 
accounting programs. Each is a 
meaty, usefiil program of its type, 
and can be put to work with no 
programming changes. 

The modules within each pro- 
gram, however, can be mixed and 
matched to produce an unlimited 
number of special applications. 
For example, the "Artist" is a 
drawing program. It has four rou- 
tines. The first, "Variables," 
simply sets aside room for initial- 
izing variables. The second. 
"Cursor. Move, Print," is the 
heart of the program, and can be 
used by itself to draw on the 
screen. The third and fourth, 
"Save Design" and "Save 
Screen," permit the artist to save 
a single design or a whole screen. 

Lawrence covers all points. He 
includes routines for business and 
pleasure graphics, music, business 
and home applications, and edu- 
cational software. He offers pro- 
grams for merging, deleting 
blocks of lines, and renumbering 
programs to facilitate using the 
modules to make complete pro- 
grams. 

Program listings are fairly clear 



for dot-matrix reproductions. The 
book begins with the best key for 
deciphering the graphic symbols 
in Commodore programs that I 
have seen. All programs save to 
tape, so disk drive owners will 
have to write their own I/O rou- 
tines. 

Almost all the programs use 
memory locations specific to the 
Commodore 64. VIC owners can 
probably use the book, but will 
have to adapt. The programs use 
the Commodore graphic control 
symbols heavily. They are not 
readily transportable to other ma- 
chines. 

Lawrence says in his preface 
that he wanted to write "a solid 
collection of programs that would 
be worth having." He succeeded 
very well. At $10. Vie Working 
Commodore 64 is an irresistible 
bargain. 

—Annette Hinshaw 
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Software 
Plus© 

Serious Systems 
for Home 
Management 
Designed for we Commodore 64" 

Eacti volume contains S systems All systems include full 
update features, simple English on-line instructons. 
menu driven operation, high speed code fast sorting 
and printed reports 

Operational In minutes, not hours, because 
tnere is no complicated data base or instruction manual 
to master 

VOLUME I TITLES: 

• Home inventory e Name and 
Address • Home/Auto vlaintenance 

• Event Reminder • Recording 
Liorary S24.95 

VOLUME II TITLES: 

• Business Expense • Medical 
History • Electronic Bank Books 

• Mailing Lapels • usr Manager 
12495 

AVAILABLE ON DISKETTE ONLY 
90DAY GUARANTEE 
To order send $24 95 for eacn volume plus 55 00 
, handling per order to 



j Superior Micro Systems, Inc. 

I PO Box 713 • Wheeling il 60090 

PrtoneOrders < J1?i J94-9594 • S2 Arjd. COD Chg. 
Dealer inquires invited 
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CHECKLIST 



□ 
□ 



for the C-64 



By Bob Spirko 

Everyone makes lists. As a hobbyist, shopper, or 
whatever, you often find yourself drawing one up. 
And, at times, that uneasy feeling arises as you won- 
der if you have left something out. 

But there's no more need to worry. Checklist is 
very easy to use, flexible, and safeguarded against 
miss-keying. You will find the sereen display neat 
and attractive through the use of extended back- 
ground colour mode. 

As an avid tour cyclist, I wrote Checklist as an aid 
in selecting equipment for any given trip. My equip- 
ment list will vary depending on the trip's length, its 
degree of difficulty, and the weather (not to mention 
whims). Moreover, as I am an ultralight enthusiast. 1 
find it of special interest to keep track of my load 
weight. With Checklist, I am able to list all items 
and their weights in any categoiy (clothing, food, 
etc.). Then, category by category. 1 go through my 
base list and choose the items that I would like to 
lake. I may also add any items not on the base list, 
and 1 can make changes in any item (if I want to 
take three pairs of socks, then I adjust the weight ac- 
cordingly). As well, I can code items, so that if I 
have two similar items I can distinguish between the 
two. Also, of course. I can strike an item off my 
list, should I change my mind. 

While all this is happening, a record of the total 
weight and category weight is displayed. Once I have 
»one through all the categories, the screen displays 



the categories, subtotals, and total weight. From 
there I may have a list of the selected items dis- 
played, or go back to any category and make chang- 
es, or produce a hard copy of my selections. 

But you need not be a cyclist to make use of 
Checklist. Just select your own DATA. DATA state- 
ments are formatted in the following manner (the 
program includes a few DATA lines for demonstra- 
tion purposes): 

DATA A1S,B1$C1$,D1,B2$C2$,D2, . . . , 
Bn$Cn$,Dn,0,0 

where Al$ is the category name, Bl$ is the first 
item, CIS is the code and Dl is the weight (if you 
wish to use a different standard such as dollars, then 
change lines 33 and 2510). Category and item strings 
may have a length of up to 12 characters. The code 
is a single character and D2 is a four digit number 
(three digits if it contains a decimal). The items for 
a category are RHAD until it encounters a 0.0 and 
then it looks for a new category name. It stops 
READing when it encounters END. You may have 
up to 22 items in a category, as it is limited to 
screen length. But you can have more items under 
the same category by creating another categoiy un- 
der the same name. 

When displayed on the screen, the items are listed 
with an alphabetic label (e.g.. the first item is A) 
and selections or deletions are made by pressing the 
respective key. All selections are accompanied by a 
pleasant tone. Pressing the wrong key results in a 
buzz sound. 

The following explains the use of the keys: 

fi-DEL. This will delete any item that you have 
selected and adjust the weights accordingly. 

f2-CHNG. After you have gone through the cate- 
gories and made your selections, you may wish to 
go back to make changes. After pressing f2, a cate- 
gory list is shown and you will be asked tor the 
category. The categoiy listing will appear as you left 
it and you can effect the necessary changes. 

O-EXTR. When you wish to add another item not 
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on the base lisl. use this key. You will be asked for 
the name of the item and its weight. It is then coded 
with an X and added to the end of the list. If you 
wish to change the code use R. 

14-TOTL. This lakes you to the "page" that dis- 
plays the subtotals and total. 

f5-NEW. Here you will be asked lor the item that 
you wish to change. After this, you can enter its new 
weight and code. If you do not wish to enter a new 
code, press RETURN. It will not accept the item 
that you have already selected. If you wish to change 
such, then simply delete the item, change the weight 
or code, and place it back on your list. 

f6-COPY. This produces a hard copy of your se- 
lections along with all the weights. Each item is 
listed with a check box for convenience. 

17-NEXT. Pressing 17 allows you to proceed to the 
next category listing. 

f8-LIST. A list of all the items that you chose (up 
to 69 items) is displayed. 

E-END 

Each page will display the keys that can be used 
at that time. If you enter cither the DEL, NEW, or 
EXTR modes accidentally, you can escape by press- 
ing RETURN. 

The program lines and principle variables are: 



Lines 115-260: 
Lines 40CM80: 
Lines 500-560: 
Lines 800-820: 
Lines 1000-1110: 

Lines 1100-1110: 

Lines 2000-2010: 
Lines 2100-2110: 
Lines 2500-2590: 
Lines 3000-3090: 
Lines 4000-4170: 

Lines 5000-5099: 
Lines 6000-6180: 
Lines 7000-7170: 
IS(X.Y): 

GS(X.Y): 

TIS(X.Y): 

TGSfX.Y): 

N(X): 

S(X): 

M: 



Select item 

Check selected item on list 
List items in category 
Print total 

Convert number NO to char- 
acter siring with length P 
Convert string to upper case 
(for background colour) 
Beep 
Buz/ 

Extra item 
Delete item 

List categories, subtotals, and 
total 

List selected items 
Make changes in any category 
Print hard copy 
Y item in category X 
Weight of item 
Selected item 
Weight of selected item 
Number of items in category X 
Total weight of selected items 
in category X 
Number of categories 
SEE PROGRAM LISTING OS PAGE 88 
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COMMODORE 64 HARDWARE 

1530 Datasette 

Maxiset 

1541 Disk Drive 

1650 Modem 

1526 Primer 

1702 Color Monitor 



65.00 

56.00 

239.00 

8900 

269.00 

239,00 



ACCESSORIES 

Data 20 130 CHR) 
Data 20 (80 CHR/CPMi 
Koala fad 

Numerical Keyboard 
light Pen . 
CarrJco Eio mi 



129,00 
229.00 
69.00 
35.00 
22. OO 
55.00 




PRINTERS 

GEMINI 10X |80 Column 
GEMINI 15X (136 Column) 
DELTA 10 (80 Column] 
RADIX 10 (80 Column) 
RADIX 15 (136 Column! 
POWERTYPE Oaisywheel 
EPSON RX-80 (80 column! 
EPSON RX-80 FT (80 column) 
EPSON FX-80 (80 Column) 
EPSON FX-100H36 Column) 
SILVER-REED EXP 50C Daisywiieei 

(30 column; 
OKIDATA 92P 

PRINTER RIBBONS 

Gemini Printers .Black/Blue/ 

Red/ Purplel 
Epson Primers 

COMMODORE INTERFACE CABLES 

Cardco GT 
T>mac 

MODEMS 

HES Modem I 
Transterm Software 



279.00 
419.00 
479.00 
639.00 
749.00 
379.00 
339.00 
469.00 
555.00 
749.00 

399.00 
449.00 



3.00 
6.00 



DISK DRIVE 

Concourde 



MONITORS 

Gorilli 



Hi Res 12" 

Non-Giaie Screen 
Gorilla" Hi Res 12' 

Non-Glare Amoer Sceen 
Sakata SC 100 Color Screen 
NEC 1260 
Monitor Cable . 
Sakata Monitor Stand 



89.00 

99,00 

239,00 

109-95 

10.00 

15.00 



GENERIC DISKS 

Generic 100*6 Detect-Free.'Guaranleet) MINIFLOPPY DISKS 

Diskettes (I Box Mm) ■ 10 per box 

SS.DD DD.'OD 

1 or 2 Boxes U49/box ?0 99'tMi 

3 ■ 9 Boxes 15 99(box 19 99/box 

10 J- Bjxes U.99/D0X 1699/box 



Bulk Oiskeltes with Sleeves - Pnce per Disk 




SS/DD DDrDD 


10-29 


1 59 1 99 


30-99 


149 189 


100+ 


1 45 1 79 



79,00 
79.00 



54.00 
29.00 



TO ORDER CALL TOLL FREE 

1-800-824-7506 

(513) 294-2002 ITo order in Ohio) 

COMPUTER CREATIONS, INC. 

P.O. Box 292467 - Dayton, Ohio 45429 

For information call: Tues/Thurs 11 a m to 3 p m. Eastern Standard Time 
MasterCard • Visa - CO D. (Add S2 .50). All orders add S3 50 shipping and handling in 
Continental United States. Actual freight will be charged oulside U.S. to include Canada 
Alaska, Hawaii Puerto Rico and A.P Os 
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Hrior to 1983, the Year of the Computer, 
owners of personal computers tended to be 
hobbyists, engineers, or individuals with 
some knowledge of programming. Such us- 
ers didnt mind tinkering, especially since microcom- 
puting was looked upon as a hobby. 

But thanks to the VIC 20 and C-64. practically 
everyone can own a computer today. And the newer 
users are more likely to look upon their micros as 
appliances— their main interest being, what can their 
computers do for them? But to the newly initiated, 
even the most user-friendly system can appear 
ominous. 

Today's users are finding, just as yesterday's did, 
that the best place to obtain information is from one 
another; and that the most convenient forum for this 
exchange of information is a users group. Five years 
ago. most users groups were generalized: it didn't 
matter what brand of computer you owned, or what 
your interests were. Such groups stil! exist in remote 
areas, but most of the earlier groups have grown so 
large that they've broken up into sub-groups of com- 
puter brand or specific interest. 

One thing hasn't changed: because of the lack of 
user support, a users group is still the best way to 
learn more about your computer. 



WHY A USERS GROUP? 

To illustrate by example some of the benefits of 
belonging to a users group, I'll run down some of 
the activities of my own— the New York City VIC 
20/C-64 User Group (NYCUG). It started about two 
years ago. when 10 or 15 people began meeting as 
the Commodore sub-group of the New York Ama- 
teur Computer Club (NYACC). 

With the rise of the C-64, our group grew quickly 
— and so did our enthusiasm. We began inviting 
companies to give demonstrations. The Alien Group 
delighted us with their singing Voice Box. Micro 
Ware came up from New Jersey and demonstrated 
the Connection interface, along with the rest of their 
line. 

Most users groups, of course, are not located in 
areas like New York City, with a number of hard- 
ware/software manufacturers nearby. But the fact is 
that the demonstrations by our own members have 
proved even more interesting. Our resident artist, 
who had done the sample demos that come with the 
Doodle graphics package, amazed us with his work 
one evening. Our Sysop brought his local bulletin 
board down so that members without modems could 
see what telecommunications was like, and what 
they were missing! We've had lectures on FORTH, 
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beginning machine language, simple BASIC arrays 
and loops. One member even brought in his disk 
drive which had burned up that week so that we 
could take it apart and look inside. We've had dem- 
onstrations of word processors, databases, terminal 
programs, and spreadsheets. Recently, someone sug- 
gested that we begin collecting public domain soft- 
ware: we now have a librarian working on it. 

When the CP/M cartridge was introduced, several 
members who'd purchased it came to meetings com- 
plaining about the lack of software to support it. 
This initiated our first hig project, which has been to 
create a public domain CP/M library of over 100 
disks from the New York Amateur Computer Club's 
CP/M library. (Those interested in purchasing disks 
should write to Commodore CPM/NYCUG, c/o 
Amateur Computer Club, P.O. Box 106. Church 
Street Station, New York. NY 10008.) 

But by far the most valuable benefit of a users 
group is the friendships it creates. In every meeting 
of every group I've attended. I've found the mem- 
bers helpful, even selfless in solving a problem for 



someone. 

I hope you now have some idea of what you're 
missing if you've never belonged to a users group. 
Your next step is clear: get into one. 

FINDING A USERS GROUP 

Finding a local users group may require some re- 
sourcefulness. Since most groups require a meeting 
place larger than a member's living room, you could 
contact schools and community centers in your area 
to inquire. Quite often, users groups will meet at a 
computer store, or the salesman may know of groups 
in the area. 

Commodore publishes a list of users groups in 
their magazines, Power/Play and Commodore: Die 
Microcomputer Magazine. If you or a friend own a 
modem, you can access the user group directory in 
the Commodore Network through CompuServe. (The 
Network's 1000+ pages also include a bulletin board 
for each Commodore computer, a conferencing area, 
a hotline for questions, articles from the Commodore 
publications, tips, an extensive database for down- 



TOR SOFTWARE ROLLS OUT ANOTHER WINNER! 

DataBase Management for the Commodore 64™ 
TOTL.INFOMASTER 3.6— only $50 on disk 

Money-Saving Bonus 
Paks of 64 Software 



(BP-1)— (disk) 
totl.text/ 

totl.speller/totl. label 
reg. price $103 NOW $79 

(BP-2)— (disk) 
totl. business/ 
totl time manager/ 
totl.infomaster/totl.text 
reg. price S228 NOW $159 

(BP-3)— (disk) 
tot I. info master/ 
totl. text/toti. speller 
reg. price S129 NOW $99 

(BP-4)— (disk) 
totl.text/ 
totl.speller/ 
research assistant 
reg. price $118 NOW $89 

(BP-5)— (tape) 
totl.text/totl. label 
reg. price $60 NOW $49 

Commodore 64 and VIC 20 are trademarks ol 
Commodore Business Machines inc 



INFORMATION AND ORDER COUPON 



TOTL.TEXT 2.0 (VIC + 8K} 
TOTL.TEXT 2.5 (VIC + 16K) 
TOTLLABEL2.1(VIC + 16K) 
TOTLTIME MGR 2.1 (VIC +8K) 
RESEARCH ASST. 2.0 (VIC + 8KJ 
TOTLBUSINESS 3.0 (VIC + 24K) 
TOTL.TEXT 2.6(C-64) 
TOTL.SPELLER 3.6(-C64} 
TOTL.LABEL2.8tC- 64) 
TOTL TIME MGR. 2.6(6-84) 
R ESE ARC H ASST. 2 .0 (C-64) 
TOTL.INFOMASTER 3.6 (C-64) 
TOTLBUSINESS 3.61C-64} 
BONUS PAK # 

Chech, Money Order or 

CO D. " also accepted COD Charges 

■COD orders S2 00 Ch „„„, 

additional (CA residents snipping a 

add 6 1 2^ sales lax) Amount Enclosed 

FOR ORDERING ONLY-CALL OUR TOLL FREE NUMBERS 
Continental U.S. 1-BO0-35M55S, California 1-800-351-1551 
Hawaii and Alaska 415.943.7877 

□ SEND MORE INFORMATION (no charge lor catalog] 

Name 

Street __ 

City 



TAPE 


DISK - 


24.95 


_ 28.95 


34.95 


38.95 


19.95 


□ 23.95 


29.95 


33.95 


29.95 


33.95 




84.95 


39.95 


43.95 




. 34.95 


19.95 


23.95 


34.95 


38.95 


34.95 


. 36.95 




.1 49.95 




94.95 


Total 


esTax __ 




ndling 


S3 00 




Stale . 



Zip- 



Phone( ) 

Card » 

T uTL 

SOFTWARE, INC. 



. i- mc n visa 

Exp. 

Date 



Quality you can afford 
1555 Third Avenue 
Walnut Creek, CA 94596 
415/943-7877 
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Other VIC 20 ,u 

and Commodore 64'" software 
available from your dealer or 
directly from TOTL Software: 

Word Processing (totl.text) 
Spelling Checker (totl.speller) 
Mailing List & Label (toll. label) 
Business Accounting (totl. business) 
Time Management 

(totl time manager) 
Keyword Cross Reference 

(research assistant) 

TOTL Offers You... 

low prices and high quality • 30 day 
money-back guarantee on direct 
purchases • an interactive family of 
software • product registration • 
customer support • free informative 
newsletter • regular upgrades at 
reduced cost • availability in many 
stores • 800 numbers for ordering 
convenience • prompt shipment of 
direct orders • savings coupons with 
each order • money-saving bonus 
paks • two years and 45,000 
products strong 
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loading programs, and listings of Commodore deal- 
ers.) Log onto CompuServe in the usual way, then at 
any ! prompt type GO CBM 248 and hit RETURN. 
This will place you at the users group directory. 

NATIONAL GROUPS 

If you have no group in your area, you could join 
one of the larger national groups— sacrificing, of 
course, the important interchange of ideas. 

The Toronto Pet Users Group is one of the oldest 
and largest national organizations, boasting over 
14,000 members (11.000 of them outside the Toronto 
area). An associate membership for someone not in 
the Toronto area costs S20.00; if 15 or more join, 
the price drops to S15.00 per person. This includes 
10 issues of TPUG Magazine and access to their 
library of over 200 disks. A disk of programs which 
goes with the magazine can be purchased for S10.00 
per month; or. if you join with a group of 25 mem- 
bers or more, you can get one free. (40-member 
groups get two monthly disks free, and so on, up to 
a maximum of six disks for a group of 240 mem- 
bers.) 

TPUG maintains an extensive list of users groups, 
some as far away as New Zealand, that is updated 
weekly. In the Toronto area, the group holds several 
meetings each month and offers lectures and confer- 
ences for members. Address is 381 Lawrence Avenue 
West, Toronto, Ontario, Canada M5M 1B9. 

The Commodore Club has been in existence for 
slightly over one year. The cost to join is $10.00. 
which includes a monthly newsletter with tips and 
short articles, and discounts on Commodore products. 
Their address is 1200 Wilson Drive. West Chester. 
PA 19380. 

STARTING A USERS GROUP 

If you can't find a local group but want the per- 
sonal interaction that a national organization can't 
provide, you'll have to start your own users group. It 
can be as simple as five or six people meeting once 
a month to exchange ideas. (But chances are it will 
grow, so be prepared.) Starting up requires some 
work — you'll need a few people to help out. Begin 
by selecting a temporary president and secretary to 
serve until all the officers can be elected. Next, 
select a name. It's best to use one that identifies 
you. You could include Users Group (UG) or Inter- 
est Group (IG) at the end; if you use a computer 
name, it must be the trade-marked name. 

A constitution and bylaws should be drafted. It's 
best to keep these simple. You can get a book on 
drafting a constitution for small organizations at the 



public library. The stated purpose of the organization 
(Article II) should be "to promote computer educa- 
tion for the Commodore computers." Once the con- 
stitution is drawn up, you can elect your officers and 
vote to accept the constitution and bylaws. 

You are now a users group. So that others in your 
area can find you, send your group's name, address, 
contact person, and telephone number to Ahox! so 
the information can be published in this column. 
You can send the same information to the Commo- 
dore Club and TPUG. as well as to many of the 
other computer magazines. Don't neglect to post 
messages locally, at supermarkets, schools, etc. 

As your group membership grows, you can tackle 
projects like setting up a bulletin board, or putting 
together a library of public domain software. (Re- 
member: using copyrighted software for your library 
is against the law.) 

In selected future issues of Ahoy!, a listing of us- 
ers groups will appear. Ahoy! has realized from the 
beginning the valuable service that users groups can 
provide for the Commodore community, and will 
continue to provide information of specific interest to 
users groups in this column. If your group has done 
anything noteworthy, tell us about it so we can publi- 
cize it in a future installment. □ 

UMrsjnyjQB? 

Continued from page II 

ommend that you use a separate tape for this file, as 

it will make saving and loading it that much easier. 

To save your job file you should type "N" when 
asked if you are ready and then insert the tape you 
are using for that purpose, type "Y" and then *"*" 
and press record and play on your Datasette. (Disk 
drive owners: although written for tape use. the pro- 
gram may be easily adapted to disk use. See your 
users guide for details.) 

Loading in the job file is a simple reversal of the 
above procedure, involving following the instruc- 
tions given when you type "Y" to the question: 
"Do you want to enter all previous jobs?" at the 
start of" the game. One last note before I go: when 
new jobs are to be saved in the tape file, you 
should record directly over the old file to avoid er- 
rors. The old jobs will be saved again along with 
the new entries. 

There vou have it. Keep reading Ahoy! for more 
valuable programs- -such as one I'll be providing in 
an upcoming issue that will turn your monitor into 
an aquarium! □ 

SEE PROGRAM LISTING ON PAGE 70 

AHOY! 23 



Prentice-Hall speaks 

a Commodore language other 

publishers have forgotten. 

English. 




USING THE COMMODORE 64 IN THE HOME 

by Hank Librach and William Behrendi Home of ihe 
tulure 1 Twenty original programs (of check book keep- 
ing, loan payments, family nutrition, education, 
games and much more Boo< disk available $1095 




COMMODORE 64 VIC 20 BASIC by Richard 
Haskell and Thomas WmOeknecht A lop-down pro- 
gramming guide, complete with examples illustrated 
by video screen photos, that introduces the beginner 
and advanced user alike to the concepis — and actual 
writing— ol programs in BASIC S13 95 
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MUSIC AND SOUND FOR THE COMMODORE 

64 by Bill L. Behrendl How to use the Commodore 
64 s Sound Interface Device and how to write 
programs that match the sounds of various oand 
instruments. $14.95 




EASY INTERFACING PROJECTS FOR THE 
VIC-20 Oy James Downey, Don IRrndsberg and 
William Isherwood Dozens of interfacing projects 
written in BASIC and specifically designed to maxi- 
mize the VlC-20s power S12 95 




SPRITE GRAPHICS FOR THE COMMODORE 

64 by Sally Greenwood Larsen Shows how to pro- 
duce high resolution, coiot. animated graphics 
Twenty-live ready-to-run sample programs S3 5.9-5 




INTRODUCING COMMODORE 64 MACHINE 
CODE Dy Ian Sinclair This dear, step-bystep intro to 
programming in machine language also includes 
sophisticated applications in fast moving graphics 
and games $12.95 



PRENTICE-HALL B00KWARE7THE LEADER IN COMPUTER PUBLISHING 

For more information about our computer books and software, write to us at the address below. Dealer inquiries welcome 

Prentice-Hall, General Publishing Division, Entflewood Cliffs, N.J. 07632 

• We guarantee thai all our guides are easy to mad and ample to apply wtho.it Ihe aid ot a reference library, a computer salesperson, or a niece who ,ust graduated from M 1 T 
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By Larry Bihlmeyer 

D~| atabase programs are perhaps the most 
misunderstood software programs. And 
they are probably the most powerful and 
I useful. 



Perhaps if they were called something else, like 
electronic file cabinets, they might be less feared. 
But while "database" and "database management" 
are terms common to large businesses, they also ap- 
ply to home and small business use. And that's why 
we prepared this survey— to help you learn more 
about what databases do and which ones are avail- 
able for the Commodore 64 and VIC 20. 

First, let's look in simple terms at what a database 
program is and what it can do. A typical program is 
made up of records and fields. An easy way to see 
this is to think of a record as a 3x5 card. If we then 
draw eight lines on the card to write down informa- 
tion, we have created eight fields on our 3x5 card 
(one record). 

All a database program does, basically, is allow 
you to create records and fields for each record. 
Then, by using the speed of a computer, many oper- 
ations can be made on the stored data, such as sort- 
ing and searching for important words or numbers. 

Once you've stored your information in your data- 
base program (3x5 file card box), you can print out 
what you've saved in many ways. You can print 
mailing labels, inventory records with cost informa- 
tion, sport league scores and dates, club membership 
records, and on and on. The uses for a good data- 
base program are endless. And the more you use 
one. the more uses will develop. 

So what databases are available for the VIC and 
C-64? What do you get for different cost software 
(and firmware)? Which programs support the RS-232 
port? 

When you're shopping for a database program, 
make a list of the uses you need it for. When you've 
finished your shopping list, compare it with the fea- 
tures included in Table 1. Table 2 provides the man- 
ufacturers of these programs. 

Database programs basically fall into three price 
groupings: $15-50, $50-90, $90-150. In general, the 



more you pay, the more features you'll gain. But as 
usual, there may be a limit to what you need. Per- 
haps just a basic database without many frills will 
be all you need. Just be sure to plan ahead. It's bet- 
ter to buy a program with extra features if you plan 
to expand your uses or utilize the program for a 
small business application. 

The programs in the $15-50 price range contain 
the basic database functions. Many are mailing list 
programs which can also store other data. For ex- 
ample, Mail Now ($39.95 for the C-64) allows you 
to enter seven fields or pieces of information for 
each record. A typical record would consist of last 
name, first name, city, state, and zip code. Then. 
you can have two other fields (Category and Re- 
marks) to store other information such as birthday, 
customer account number, or golf score. So besides 
providing a mail list, this program also allows you 
to keep track of other useful data. 

Another low cost database is Dciia Manager I 
($24.95) which allows you to create records 30 
characters wide by 8 lines deep. Each line then be- 
comes a field. With this format, it is very easy to 
take your data and put it into a well-organized for- 
mat for storage and later printing. This particular 
program uses pointers and indexes to allow you to 
sort for pieces of information. And if you store 
numbers, you can also add fields, calculate averages 
and standard deviations, and do a frequency chart. 

A third low cost database is Info-Manager 
($39.95) which allows you to set up large records 
(up to 630 characters) and establish up to 18 fields, 
each with up to 35 characters. The directions with 
this program are easy to follow, showing you how 
to set up a record like an index card, with 18 lines 
maximum, each with 35 characters. Menus help 
along the way to set up records, make changes, per- 
form disk operations, and print. 

Moving up to the next category, the $50-90 group, 
we find a good example in Flex File ($60.00). It 
consists of a database program, report writer pro- 
gram, and mailing list program: three in one. The 
database part is very complete, with up to 20 fields 
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possible and 5 levels of search per field. 

You also get complete math functions and logic 
sorting capabilities. There are menus to help you as 
you work the program and these direct you to the 
report writer and mail list. The report writer is like 
a mini-word processor and allows you to use the 
data you stored in many different types of reports 
and letters. The mail list program is primarily a 
working sample of what you can do with the overall 
package. 

Another program in this second group is Mini Jini 
($89.95). This comes as a cartridge (firmware) 
which plugs into the user port. When you turn on 
your computer, it instantly turns into a database pro- 
gram. You can set up 10 fields for one record, with 
each field containing up to 75 characters. Other fea- 
tures include alphabetizing a file, searching a file, 
fixing up a file, doing custom printouts, and disk 
utilities. And more— it contains a ""mathpack" 
which allows you to add, subtract, multiply, or di- 
vide two fields or a field and a constant. This obvi- 
ously gives you a great deal of flexibility in hand- 
ling your data. 

The third category of programs falls into the $90- 
S150 price range. Superbase 64 (S99.00) is a good 
example. This program is a database management 
and information retrieval system with a user pro- 
grammable interface. You can define indexed files 



HEADING DEFINITIONS FOR TABLE 1 



Now make your '64' TALK 
...in your own voice! 








"Parfez-vous 
Franc'ais?" 



"Sorry 
Charlie, 



^ •. 



you 
lose" 



The amazing new VOICE MASTER is ideal for learning, for 
games, you name it! Add sound effects to your own games. 
Teach your children 1o 'speak & spell'. Learn a foreign language 
yourself. VOICE MASTER digitally records your spoken or 
singing voice, musical instrument, or any sound. Utterly 
fascinating, with unlimited capability — anything you create 
can be stored. Special low price includes mike, 2000 byte 
assembly language program and easy instructions with ex- 
amples. Order right away — only $89.95. Don't delay. 

Order toll free 1-800-662-5021 

IN ILLINOIS. CALL I -31 2-642-6871 
or write INDUS-TOOL. 325 W. HURON, Dept. 000, CHICAGO IL 60610 

Send Voice Masters @ $89.95 each 

Enclosed is $ or charge on □ MasterCard □ Visa 

Card No. 



Expires _ 



Name 

Address 

City. Stale. 2ip _ 
Pft&ne 



Reader Service No. 41 
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Tape/Disk/Cartridge 
Record Size (Max) 



Number of Fields 

(Max) 



Field Size (Max) 
Number of Keys 

Sort Level 
Math Function 



Printing 



Logic Sort 
Disk Utility 



Color 



Indicates whether the product 
comes as a cassette tape, floppy 
disk, or cartridge. 
Shows the maximum size in 
characters that any one record 
can be. If a number isn't shown, 
then the record size is variable. 
Indicates the maximum size in 
characters that a field can be. 
With some programs, the record 
and field sizes are interrelated, 
so a variable field size can re- 
sult. 

Indicates the maximum size in 
characters a field can set up. 
Sometimes, this is interrelated 
with the record size and a vari- 
able size can result. 
A key is a specific way of label- 
ing a field so it can later be 
sorted, searched, and operated 
on. This column will show the 
maximum number of keys you 
can name for that program. 
Shows the number of levels you 
can sort and search one specific 
field. 

If marked "yes," then the pro- 
gram can perform math func- 
tions on fields, such as addition, 
subtraction, multiplication, and 
division. Check with each manu- 
facturer for specific details, since 
not all programs checked "yes" 
can do all math functions. 
Serial: Printout to the serial port 
(device M) is supported. 
RS-232: Printout to the RS-232 
port (device #2) is supported. 
Std: Only standard formats are 
available. 

Cust: Custom printouts can be 
made. 

Indicates if the program will sort 
data using logic criteria. 
If marked "yes", the program will 
allow you to do certain disk utili- 
ties while the program is loaded 
into your computer, such as for- 
matting a disk, getting a direc- 
tory, and finding a file. 
Indicates if the program makes 
use of the Commodore color ca- 
pabilities. 



of records to suit your needs, recall records quickly 
with simple or complex search requirements, and 
process files or sets of records in several different 
ways. 

The number of records on a disk is only limited 
by the amount of free disk space available. The user 
can have up to 127 different fields for any one data- 
base, with up to 255 characters per field. Maximum 
record size is 1 108 characters, which can cover up 
to 4 screens of display. Finally, you can have up to 



TABLE 1: SUMMARY OF VIC 20/COMMODORE 64 DATABASES 



Num- 
Rec- ber 

Ord of Field No. Printing 

Formal Size lields Siie of son math BS- logic disk 

64 Tape Disk Cart Price (max) (max) (max| keys level In. serial 232 sld cust sort utll color 



Comments 



Inquire Pae 


X 




X 


69.95 200 


15 


250 


VAR 


VAR 


N 


Y 


N 


Y 


Y 


Y 


Y 


Y 




Data Base 
Manager 


X 
X 




■ 

X 


69.95 140 
59.95 


16 


24 
20 


16 
9 


2 

1 


Y 


Y 


N 


Y 


Y 


Y 


N 


Y 


VIC requires 8K expansion 


Database Manager 


X 




X 


99.95 2000 


200 


250 


250 


1 


Y 


Y 


N 


Y 


Y 


Y 


V 


Y 




Data Manager I 


X 


X 


X 


24.95 240 


8 


30 


VAR 


VAR 


Y 


Y 


;. 


Y 


Y 


Y 


Y 


N 


e 


Datalog 


X 




X 


39.50 220 


12 


55 


12 


VAR 


Y 


Y 


N 


Y 


Y 


Y 


Y 


Y 




Datman 


X 




X 


59-95 255 


19 


m 


19 


19 


N 


Y 


N 


Y 


Y 


Y 


Y 


N 




Delphi's Oracle 


x 




X 


12500 8000 


99 


7000 


• 99 


10 


Y 


Y 


Y 


v 


Y 


Y 


Y 


Y 




Filing Assistant 


X 




X 


12500 256 


25 


35 


10 


2 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 




Flex File 


X 




X 


60.00 254 


20 


79 


20a 


5 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 




Inlo-Manager 


X 


X 


X 


39.95 630 


16 


35 


18 


1 


N 


Y 


N 


< 


Y 


Y 


Y 


Y 




Inventory 


X X 


X 




20.00 d 


.1 


d 


2 


1 


N 


Y 


c 


Y 


N 


N 


N 


N 




Insla-File 




X 




X 


61.95 1550 
b 


62 


25 


VAR 


I 


Y 


Y 


N 


Y 


Y 


Y 


Y 


Y 


Requires Insta-Wnter 
(S51-95) 


M'File 


X 


X 


X 


95.00 250 


32 


1 


= 


* 


Y 


Y 


« 


Y 


Y 


Y 


* 


• 


Tape has (ewer features 


Magpie 


X 




X 


99.95 VAR 


VAR 


VAR 


VAR 


VAR 


Y 


Y 


N 


Y 


Y 


Y 


Y 


Y 




Mail Now 


X 




X 


3995 d 


7 


d 


p 


1 


N 


Y 


N 


Y 


Y 


N 


N 


N 


Preformatted for mail list 
data 


Mail Pro 


X 




X 


129.95 25-1 


22 


99 


VAR 


VAR 


N 


Y 


Y 


Y 


Y 


■• 


Y 


Y 


Fields prelormaiied lor mail 
list data 


Mini Jinr 


X 




X 
X 


89.95 350 
750 


10 
10 


35 
75 





■ 


Y 


Y 


■. 


Y 


Y 


Y 


Y 


Y 




Omnifiie 


X 

X 


■ 

X 


■ 
• 


15.95 V . R 
19.95 VAH 


VAR 


256 


ktAfl 


VAR 


Y 


Y 


c 


Y 


Y 


Y 


N 


Y 


Requires 8K for VIC 


Powerftfe 


X 




X 


89.95 254 


20 


79 


20 


5 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


V 




Rabbit Base 


X 


X 




29.95 vari- 
able 


100 


255 


1 


1 


Y 


Y 


N 


Y 


Y 


Y 


N 


N 


Requires 16K RAM card 
for VIC 


Record Keeper 


X 




X 


99.95 254 


ao 


254 


60 


20 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 





Research 
Assistant 



-d= ■:- 



3000 
3500 



VAR VAR VAR 12 



Field names prelormaiied 
for research data 



39.95 VAR VAR VAR 10 



Simphfile 


X 




x 




19-95 VAR VAR 


VAR 








N 


Y 


Yc 


Y 


N 


N 


N 


Y 


Superbase 64 




X 




X 


99.00 1106 127 


255 


VAR 


VAR 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 



TOTL. Infomaster 



50.00 2500 10 245 VAR VAR 



TOTL. Label 



20.00 
20.00 



254 VAR VAR 



Fields prelormaiied lor 
label data 



Your Filing System 



20.- 255 60 
000 



Requires 6K VIC expansion 



NOTES: 

t Information not available 

VAR Variable value, contact manufacturer for lurther details. 

a Up to 3 recommended lor fast sorting 

b Requires Insm-Writer firmware ($51.95). Also available as pari of "Management Combo" package at S99.95. 

c "BASIC" program listing can be modified to support printout to Device «2. 

d PreformaHed record/lield sizes— maximum not specified. 

e Data Manager II — S49.95 Also available— enhanced program. 



15 files per database or one large database. Four 
menus control program operation in the normal 
mode. Superbase 64 also has tile ID and password 
protection as well as two other modes of operation 
—command mode and programming mode. 

Another program in this price range is Delphi's 
Oracle ($125). This program allows you to set up 
large records (up 10 8000 characters) and large 
liekls (up to 99 characters and 9 display pages deep). 
This obviously is a good program for small business 



use and has many features common with higher cost 
business software. It contains the ability to do math 
functions on the stored data and complex logic sort- 
ing. And you can design your own forms on the 
screen and for printouts. 

By now, you can begin to see how the features 
expand as the cost of the programs increase. When 
you are shopping, try to narrow your choices down 
to two or three based on your list of needs. Then 
contact each manufacturer or local dealer for the lat- 

AHOY! 27 



TABLE 2: 
MANUFACTURERS LISTING 



Product 


Company Address 


Product 


Company Address 


Creat-A-Base 


Computer Center 




10520 Piano Rd. 




9621 - D" Oates Dr. 




Suite 206 




Sacramento, CA 95827 




Dallas, TX 75238 


Inquire Pac 


Pacific Coast Software 


Magpie Simplifile 


UMI, Inc. 




3220 S. Brea Canyon Rd. 




3503-C Temple Avenue 




Diamond Bar, CA 91765 




Pomona, CA 91768 


Data Base Manager 


MicroSpec 


Mail Now 


Cardco Inc. 




2905 Ports O'Call Court 




313 Mathewson 




Piano, TX 75075 




Wichita, KS 67214 


Database Manager 


Mirage Concepts, Inc. 


Mail Pro 


Pro-Line Software 




2519 W. Shaw 




755 The Queensway East, Unit 8 




Suite 106 




Mississauga, Ontario 




Fresno, CA 93711 




Canada L4Y 4C5 


Data Manager 1 


Timeworks, Inc. 


Mini Jini 


Jini Micro Systems, Inc. 


Data Manager II 


405 Lake Cook Rd. 




Box 274 




Building A 




Riverdale, NY 10463 




Deerfield. IL 60015 










Omnifile 


Software To Go 


Datalog 


Midwest Software 




1948 Oak Ridge Turnpike 




Box 214 




Oak Ridge. TN 37830 




Farmington, Ml 48024 










Powerfile 


City Software 


Datman 


Software Consultants 




735 West Wisconsin Avenue 




4455 Draper St. 




Milwaukee, Wl 53233 




Salt Lake City, UT 84111 










Pro-File 


A-1 Services 


Delphi's Oracle 


Batteries Included 




7103 W. Clearwater H-228 




186 Queen St. West 




Kennewick, WA 99336 




Toronto, Ontario 








Canada M5V 1Z1 


RabbitBase 


Computer Software Associates 
50 Teed Drive 


Filing Assistant 


Rainbow Computer Corp. 
490 Lancaster Avenue 




Randolph. MA 02368 




Frazer, PA 19355 


Record Keeper 


Southern Solutions 
Box P 


Flex File 


Webber Software 
Box 9 




McKinney, TX 75069 




Southeastern, PA 19399 


Research Assistant 


TOTL Software 






Totl. Label 


1555 Third Avenue 


Info-Manager 


Pyramid Software Internationa! 
30 Fairfax 


Totl. Infomaster 


Walnut Creek, CA 94956 




Suite A 


SDB-64 


Simpleware 




San Rafael, CA 94901 




129 Wildbriar Road 
Rochester, NY 14623 


Inventory 


William Robbins 








Box 3745 


Superbase 64 


Precision Software (USA), Inc. 




San Rafael, CA 94912 




Suite 1100 

820 Second Avenue 


Insta-File 


Cimarron 




New York. NY 10017 


(Management 


2158 Hathaway St. 






Combo) 


Santa Ana, CA 92705 


Your Filing System 


Microtechnic Solutions, Inc. 



M'File 



SJB Distributors 



New Haven, CT 06515 



est information and to make sure it will work on 
your system. Double check to make sure it will 
work with your printer and printer interface. 

A good selection will be fun to use and will make 
you want to find more uses for it. As funny as it 
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sounds, it'll take on its own personality. And that 
should match yours or you'll be inhibited by it. 

So have fun shopping for that database program. 
It could become the most important piece of soft- 
ware that you own. 




wmm 
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FOR THE C-64 




By Anthony Wood 

t'ten while programming, the need arises 
to insert a line between two lines that 
have no room between them. In cases 
like this it would be helpful to renumber 
the entire program. Other times, when you've fin- 
ished a program, it would be nice to renumber the 
program so it looks neat. The renumber utility does 
this for you. 

The renumber program will renumber an entire 
program while changing GOTO, IF-THEN. GOSUB, 
ON GOTO, and ON GOSUB references to the cor- 
rect values. 



When you run the program, you are asked for the 
name of the program to renumber. Enter the name 
you saved your program under. Next, you are asked 
for the name of the renumbered program. As the re- 
number utility renumbers your program, it will be 
saved under this file name. Next, you are asked 
what you want the first line in the renumbered pro- 
gram to be. After you enter this, you are prompted 
for the increment between lines. Once you have an- 
swered these questions, the renumber utility proceeds 
to renumber your program. 

SEE PROGRAM LISTING ON PAGE 93 
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COMMODORE 64* 



Bo The BBIVING 



# 



No matter which direction you wish ro travel in. experience 
rhe advantage of computer communications with The 
SMART 64 Terminal. Discover rhe program rhar purs you 
on the Right Rood ro: Pub lie- Access Networks, University 
Systems, Private Company Compurers and Financial Services. 

The SMART 64 Terminal designed wirh Quality-Bred features, 
Affordable Pricing . . . And Service. 

So why not Travel rhe communicarions highways rhe SMART way! 
Accessories included: 



S 



/ 



Suggested 

$49.95 

Retail 



□ Selective Storage of Received 
Data 

□ Alarm Timer. 

□ 40 or 80 Col. Operation*. 

□ Auto-Diol. 



□ Formatted Lines. 
p Review, Rearrange, PrintFiles. 

□ Sends, Receives Programs and 
Files of ANY SIZE. 



□ User-Defined Function Keys, 
Screen Colors, Printer and 
Modem Setting. 

□ Screen Print. 

□ Disk Wedge Duilr-ln! 
J Adjustable transmit/receive tables allow custom requirements. These and other features make The SMART 64 Terminal 

the best choice for grand routing telecommunications. 

"MICFOTECHIMIC 



•Commodore 64 reg isrered trademark 
of Commodore Duress Machines Inc 

•Supports 80 column cartridge 
by Data 20 Cotporonoi 



Dealer Availability 
Coll (200) 389-8363 



111 SOLUTIONS 



VO BOX 2940. NliW [ i/\Vl£N. CONN. 06515 



Reader Service No. 34 
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WE LOVE COMMODORE 

and 

We Love Our Customers 

That's why we only sell and support Commodore 64 and Vic 20 
computers!! We have • the best prices • over 1000 programs • 500 
accessories • absolutely the best service • one day express mail 
delivery • immediate replacement warranty • 15 day free trial • pro- 
gramming knowledge • technical knowledge • we are the only one 
in the U.S.A. with complete support for Commodore 64 and Vic 20 
computers!! 



PROTECTO ENTERPRIZES Box 550, Barrington. IL 60010 

SEND IN THIS COUPON TODA Y FOR A FREE 64PAGE 
"EXCLUSIVE COMMODORE-64 AND VlC-20 CATALOG" — PLUS OUR SPECIAL 

"BUY MORE— SAVE MORE COUPON" 
(Save up to $500 on software and accessories) 



State 



.Zip Code 



No One! But No One! Can Compare 



TO 



PROTECTO ENTERPRIZES 

TO ORDER WRITE OR CALL: PROTECTO ENTERPRIZES. BOX 550. BARRINGTON. IL 60010 



Call 312/ 382-5244 

8 to 5 Weekdays 9-1 2 Saturdays 



(See Next Pages) 



5ft 






as?*. 



Mb 

k 
p 

Pa 






#, 



9*2 

r 



MS 



3%!» 




Render Service No. 11 



'OMMODORE 



64 



(more power than Apple II at half the price) 



COMPUTER AND SOFTWARE 

SALE 



$99. 



50* 



170K DISK DRIVE $1 59.00 * 
TRACTION FRICTION PRINTER $79.00* 



WE 

HAVE 

THE 

BEST 

SERVICE 



WE 

HAVE 

THE 

LOWEST 

PRICES 



VIC-20 

(a real computer at the price of a toy) 

50 



s 79. 



COM-64 POWER FOR VIC-20 $79.00 

NEW VOICE SYNTHESIZER $59.00 
(Com-64 or VIC-20) 



* COMMODORE 64 COMPUTER $99.50 

You pay only $199.50 when you order the power- 
ful 84K COMMODORE 64 COMPUTER! LESS the 
value Of the SPECIAL SOFTWARE COUPON we 
pack with your computer that allows you to 
SAVE OVER $100 olf software sale prices!! With 
only S100 of savings applied, your net computer 
costisS99.50!! 

•170K DISK DRIVES1 59.00 
You pay only $259.00 when you order the 170K 
Disk Drive! LESS the value of the SPECIAL 
SOFTWARE COUPON we pack with your disk 
drive that allows you to SAVE OVER $100 off 
software sale prices!! With only $100 Of savings 
applied, your net disk drive cost is $159.00. 

♦ TRACTION FRICTION PRINTER $79.00 
You pay only $179 00 when you Order the Com- 
star T/F deluxe line printer thai prints 8 V2 x 11 
full size, single sheei, roll or fan fold paper. 
labels etc. 40, 86, 80, 132 columns. Impact dot 
matrix, bi-directional, 80 CPS. LESS the value of 
the SPECIAL SOFTWARE COUPON we pack 
with your printer that allows you to SAVE OVER 
$100 off software sale prices!! With only $100 of 
savings applied your net printer cost is only 
S79.00. 

4 COLOR PRINTER/PLOTTER S99.00 
Lowest cost, 4 color, 80 column, letter quality 
PRINTER/PLOTTER for Com-64 or VIC-20 com- 
puters!! List programs. High resolution graphics 
for charts and geometric figures. INCLUDES IN- 
TERFACE AND SPECIAL SOFTWARE SAVINGS 
COUPON!! 

80 COLUMN BOARD $99.00 

Now you program 80 COLUMNS on the screen 
at one lime! Converts your Commodore 64 to 80 
COLUMNS when you plug in the 80 COLUMN 
EXPANSION BOARD!! PLUS-you can get an 80 
COLUMN BOARD WORD PROCESSOR With mail 
merge, terminal emulator, ELECTRONIC 
SPREAD SHEET. List $59.00 SALE $24.95 if pur- 
chased with 80 COLUMN BOARD!! (Tape or 
Disk) 

80 COLUMNS IN COLOR 
EXECUTIVE WORD PROCESSOR $69.00 
This EXECUTIVE WORD PROCESSOR is Ihe 
finest available for the COMMODORE 64 com- 
puter! The ULTIMATE for PROFESSIONAL Word- 
processing application! DISPLAYS 40 OR 80 
COLUMNS IN COLOR or Black and White! Sim- 
ple to operate, powerful Icxl editing wilh a 250 
WORD DICTIONARY, complete cursor and in- 
serlidelete key controls line and paragraph inser- 
tion, automatic deletion, centering, margin set- 
tings and output to all printers! includes a 
powerful mail merge. 20.000 WORD DIC- 
TIONARY - List $24.95 SALE $19.95. EXECUTIVE 
DATA BASE - List $69.00 SALE $49.00. (Disk 



SPECIAL SOFTWARE COUPON 



We pack a SPECIAL SOFTWARE COUPON 
with every COMMODORE 64 COMPUTER- 
DISK DRIVE-PRINTER-MONITOR we sell! 
This coupon allows you to SAVE OVER 
$100 OFF SALE PRICES! Up to $500 sav- 1 
ings are possible!! 



PROFESSIONAL SOFTWARE 




COMMODORE 64 




Name 


List 


Salt 


Coupon 


Executive Word 








Processor 


S99 00 


$59.00 


SS9 0U 


Executive Data Base 


S69.00 


S59.00 


$39.00 


20.000 Word Dictionary 


S24.95 


$1995 


$1495 


Electronic Spreadsheet 


$59 95 


$4900 


$39 00 


Accounting Pack 


$49.00 


S39 00 


$29 00 


Total 5.2 








Word Processor 








Tape 


S69 00 


S49 00 


134 00 


Disk 


$79 95 


$59 00 


$39 00 


Total Text 2 6 








Word Processor 








Tape 


$44 95 


S3495 


S22 0O 


Disk 


$49.00 


$39.00 


$27.00 


Total Label 2 6 








Tape 


$24.95 


$18.00 


$1200 


Disk 


$29.95 


$23.00 


$1500 


Programmers 








Helper (Diskf 


$59 00 


539 95 


$29 95 


80 Column Screen 








(Diskl 


$59 95 


S39 95 


$29 95 


Crush-Crumble- Chomp 








[Tape* Disk) 


S29 95 


$24 95 


$19 95 


Pilstop (Cartridgel 


$3995 


S29 95 


$2495 


Typing Teacher 








(Tape/Disk) 


S29.95 


S2495 


$15.00 


Spine Designer|Disk) 


$16 95 


S1495 


$1000 


Fireball Joy Stick 


$2495 


$15 95 


$10.00 


Ligni Pen 


$3995 


$16 95 


S1495 


Dusl Cover 


$ B95 


$ 6 95 


$4 60 


i See t00 coupon items in our catalog V 




Write or call for 





Sample SPECIAL SOFTWARE COUPON! 



EXECUTIVE QUALITY 
PROFESSIONAL BUSINESS SOFTWARE 

The Cadillac oi business programs 
for Commodore 64 Computers 



It.m 

Inventory Management 

Accounts Receivable 

Accounts Payable 

Payroll 

General Ledger 



List 
$99 00 
$99 00 
$99.00 
$99 00 
$99 00 



■SALE 

$59 00 
$59 00 
$59.00 
$59 00 
$59.00 



Coupon 
$49 00 
$49.00 
$4900 
$49 00 
$49.00 



VIC-20 COMPUTER $79.50 

This 25K VIC-20 computer includes a full size 66 
key typewriter keypoard color and graphics keys, 
upper/lower case, full screen editor, 16K level II 
microsoft basic, sound and music, real time 
floating point decimal, self teaching book, con- 
nects to any T.V. or monitor! 

COM-64 POWER FOR VIC-20 $79.00 
Just plug in our 32K RAM MEMORY EXPANDER 
and you get as much usable programming power 
as the Commodore-64 computer!! Master control 
switches on cover. Gold Edge connectors, five 
year warranty (FREE S29.95; CARTRIDGE GAME) 

NEW VOICE SYNTHESIZER $59.00 
For Com-64 or VIC-20 computers. Just plug it in 
and you can program words and sentences, ad- 
iust volume and pitch, make talking adventure 
games, sound action games and customized 
talkies!! FOR ONLY S19.95 you can add TEXT 
TO SPEECH. |ust type a word and hear your 
computer talk — ADD SOUND TO "ZORK," 
SCOTT ADAMS AND AARDVARK ADVENTURE 
GAMES!! (Diskortape). 

16K RAM CARTRIDGE $49.00 

Increases VIC-20 programming power 4 times. 
Expands total memory to 41K (41,000 bytes). 
Memory block switches are an outside cover! 
CARDCO Includes FREE $29.95 game!! 

8K RAM CARTRIDGE $34.95 

Increases VIC-20 programming power 2 1/2 
times. Expands total memory to 33K (33,000 
bytes). Includes FREE $16.95 game. 

3 SLOT SWITCHABLE EXPANDER $24.95 

Allows you to add 3 cartridges at one time- 
switch select to turn slots on or otl — PLUS reset 
button. A must for your VIC-20 computer!! 

60K MEMORY EXPANDER $49.00 

Sixslot Board — Switch selectable — Reset but- 
ton — Ribbon cable — CARDCO. A must to get 
the most out ol your VIC-20 Computer! 

9" GREEN SCREEN MONITOR $69.00 

Fxcellent quality SANYO, easy to read, 80 col- 
umns x 24 lines, Green Phosphorous screen 
with anti-glare, metal cabinet! Saves your TV. 
PLUS $9.95 lor connecting cable. Com-64 or 
VIC-20. 

12" GREEN OR AMBER MONITOR $99.00 
Your choice of green or amber screen monitor, 
top quality. SANYO, 80 columns x 24 lines, easy 
to ready, anti-glare, faster scanning! A must for 
word processing PLUS S9.95 for connecting 
cable. Com-64or VIC-20. 



• LOWEST PRICES' 
• BESTSFRVICEIN U.S.A. 



15 DAY FREETRIAL" 90 DAY FREE REPLACEMENT WARRANTY 
■ ONE HAY FXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



■ LLUfl! 



I Add $10.00 for shipping, handling and insurance. Illinois residents 
I please add 6% tax Add S20 00 for CANADA, PUERTO RICO. HAWAII 

orders. WE DO NOT EXPORT TO OTHER COUNTRIES 
| Enclose Cashiers Check. Money Order or Personal Check Allow 14 days 
■ for delivery, 2 to 7 days for phone orders. 1 day express mail 1 Canada 



orders must be in US. dollars. VISA-MASTERCARD -COD 



ENTERPRIZES i*™*™*™*™*** 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 3127382-5244 to order 



Reader Service No. 12 



80 COLUMN PRINTER SALE— $149.00* 



COMSTAR T/F 



Tractor 
Friction 
Printer 



• * 



COMSTAR 



15 Day Free Trial -180 Day Immediate Replacement Warranty 



• Lowest Priced, Best Quality, Tractor- Friction Printers in the U.S.A. 
• Fast 80-120-160 Characters Per Second • 40, 46, 66, 80, 96, 132 Characters Per Line Spacing 
• Word Processing • Print Labels, Letters, Graphs and Tables • List Your Programs 
Print Out Data from Modem Services • "The Most Important Accessory for Your Computer" 



•STX-80 COLUMN 
PRINTER-$149.00 

Prints full 80 columns. Super silent 
operation, 60 CPS, prints Hi-resolution 
graphics and block graphics, expanded 
character set, exceptionally clear 
characters, fantastic print quality, uses 
inexpensive thermal paper! Best thermal 
printer in the U.S.A.! (Centronics Parallel 
Interface). 

"DELUXE COMSTAR T/F 
80CPSPRINTER-S179.00 

The COMSTAR T/F (Tractor Friction) 
PRINTER is exceptionally versatile. It 
prints B%" x 11" standard size single 
sheet stationary or continuous feed com- 
puter paper. Bi-directional, impact dot 
matrix, 80 CPS, 224 characters. (Cen- 
tronics Parallel Interface). 

Premium Quality— 120 CPS 
COMSTAR T/F SUPER-10X 

PRINTER— $289.00 

COMSTAR T/F (Tractor Friction) SUPER- 
10X PRINTER gives you all the features 
of the COMSTAR T/F PRINTER plus a 
10" carriage, 120 CPS, 9 x 9 dot matrix 
with double strike capability for 18 x 18 
dot matrix (near letter quality), high 
resolution bit image (120 x 144 dot 
matrix), underlining, back spacing, left 
and right margin settings, true lower 
decenders with super and subscripts, 
prints standard, italic, block graphics 



and special characters, plus 2K of user 
definable characters! The COMSTAR T/F 
SUPER-10X PRINTER was Rated No. 1 by 
"Popular Science Magazine," It gives you 
print quality and features found on 
printers costing twice as much!! (Cen- 
tronics Parallel Interface) (Better than Ep- 
son FX 80). 

Premium Quality— 120 CPS 

COMSTAR T/F SUPER-15%" 

PRINTER-S379.0Q 

COMSTAR T/F SUPER 15%" PRINTER 
has all the features of the COMSTAR T/F 
SUPER-10X PRINTER plus a 15%" car- 
riage and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson FX 
100). 

Superior Quality 

SUPER HIGH SPEED— 160 CPS 

COMSTAR T/F 10" 

PRINTER-S399.00 

SUPER HIGH SPEED COMSTAR T/F 
(Tractor Friction) PRINTER has all the 
features of the COMSTAR SUPER-10X 
PRINTER plus SUPER HIGH SPEED 
PRINTING— 160 CPS, 100% duty cycle, 
8K buffer, diverse character fonts, 
special symbols and true decenders, ver- 
tical and horizontal tabs. RED HOT 
BUSINESS PRINTER at an unbelievable 
low price!! (Serial or Centronics Parallel 
Interface) 



Superior Quality 

SUPER HIGH SPEED-160 CPS 

COMSTAR T/F 1554" 

PRINTER— $529.00 

SUPER HIGH SPEED COMSTAR T/F 

15'A" PRINTER has all the features of the 
SUPER HIGH SPEED COMSTAR T/F 10" 
PRINTER plus a 15 r A" carriage and more 
powerful electronics to handle larger 
ledger business forms! Exclusive bottom 
paper feed!! 



PARALLEL INTERFACES 
For VIC- 20 and COM-64— $69.00 
For Apple Computers— $79.00 

NOTE: Other printer interfaces are 
available at computer stores! 



Double 

Immediate Replacement 

Warranty 

We have doubled the normal 90 day war- 
ranty to 180 days. Therefore if your 
printer fails within "180 days" from the 
date of purchase you simply send your 
printer to us via United Parcel Service, 
prepaid. We will IMMEDIATELY send you 
a replacement printer at no charge, 
prepaid. This warranty, once again, 
proves that WE LOVE OUR 
CUSTOMERS! 



j Add $17.50 for shipping, handling and insurance. WE DO NOT EXPORT 
J TO OTHER COUNTRIES EXCEPT CANADA. 

■ Enclose Cashiers Check, Money Order or Personal Check. Allow 14 days 
[ for delivery, 2 to 7 days for phone orders, 1 day express mail! Canada 
I orders must be in U.S. dollars. VISA - MASTER CARD ACCEPTED. We 
I ship C.O.D. 



ENTERPRI ES we love our customers) 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phortt 312/382-5244 to order 



SUPER-10" ABCDEFGHIJKLMNOPOR 

flBCDEFGHIJKLMNOPQRBTUVWXYZ 1 234S 



8TUVWXYZ 



Reader Service No. 15 



4 Color 
80 COLUMN Letter Quality 

PRINTER/PLOTTER 
Super _^^^ Special 



$99 

1/2 PRIC E 

sale 




$99 



A(2 PRICE 
SM- E 



• LOWEST PRICE IN U.S.A. 

Commodore-64 & VIC-20 

• $500 Software SAVINGS Coupon Included • 

• List your programs • High resolution graphics for bar charts and geometric figures (like 
spirograph) • Plugs directly into VIC 20 and Commodore 64 — Interface included • Lowest 
cost letter quality printer in the country. 



* PROJECTED SALES * 



I 



ACTUAL PRINT SAMPLES 

UPPER CASE - ABCDEFGhUKLflNOPQRSTUUWXYZ 
LOWER CASE - abcde f gh • jk L mnopqr st u^uxyz 




At last you can list your programs (even control characters) and make beautiful high resolu- 
tion graphics at an affordable price. This 80 column letter quality printer/plotter is great for 
making complex bar charts for business plus fancy greeting cards and geometric designs. 
Great for homework too. Everyone must have a 4 color printer plotter for their VIC-20 or 
Commodore-64. List $199.00. Sale $99.00. -4500 Software SAVINGS Coupon Included- 

• LOWEST PRICES ■ 1 5 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



I Add (10.00 for shipping, handling and Insurance. Illinois rasldenta 1 
| please add 8% lax. Add J20.CC (or CANADA. PUERTO RICO, HAWAII I 
j orders. WE DO NOT EXPORT TO OTHER COUNTRIES. 

I Enclose Cashiers Check. Money Order or Personal Check. Allow 14 j 
| days lor delivery, 2 lo 7 days lor phone orders. 1 day express mall! I 
| Canada orders must be in U.S. dollars. Visa - MasterCard - COO. 

m^m^m^mmm^m^m^m ^m ^m ^m ^» ^m ^_ ^» ^m ^n ^_ ^m. 



CMTCDpP|7FS 'WE LOVE OUR CUSTOMERS) 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 lo order 



Reader Service No. 16 




COMMODORE-64 or VIC-20 

VOICE SYNTHESIZER 



MAKE YOUR 
COMPUTER TALK 




VOTRAX BASED 
HARDWARE 



SALE 



$ 



ONLY 



59 



00 



You can program any words or sentences • Adjust volume and pitch • Make adven- 
ture games that talk • Real sound action games • Make customized talkies • (Demo 
disk or tape included) 



You can add TEXT TO SPEECH SOFTWARE that allows you to simply type what you 
want to hear!! Also allows you to add sound and voice to SCOTT ADAMS AARD- 
VARK and "ZORK" ADVENTURE GAMES List $29.95 Sale $19.95 (Disk or Tape) 



• LOWEST PRICES • 15 DAY FREETRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN USA • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



COMMODORE 64 

80 COLUMN BOARD 



$ 



FOR ONLY 



99 



00 



Now you can program 80 columns on the screen 
I at one time! Converts your Commodore 64 to 80 
columns when you plug in the PROTECTO 80 
Expansion Board. List $199.00. Sale $99.00. 




FOR ONLY $24.95 you can get an 80 Column Board "WORD PROCESSOR" with mai 
terminal emulator PLUS! AN ELECTRONIC SPREAD SHEET (like Visicalc) List $59.00. 
*lf purchased with board only $24.95. (Tape or Disk.) 

WE LOVE OUR CUSTOMERS 



I merge and 
Sale $39.90. 



Add S3 00 lor postage Add S6 00 for CANADA PUER T PrCO mAWaii 
orders WE DO NOT EXPORT TO OTHER COUNTRIES 
Enclose Cashiers Check Money Order or Personal Chech AHo* 14 
days lor delivery 2 lo 7 days lor pnone orders i day e>cess mail 
Canada orders musi be in u S dollars We accept Visa and Masie' 
Card We ship COD 



f-WT£-RPR|7FS '■■ ■ lOVE our Customers' 

BOX 550, BARRJNGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 



Render Service No. 13 



EXPAND YOUR VI C-20 
TO COMMODORE-64 POWER! 



s 79 

.Y f W 



00 



FOR ONLY 

{PLUS A FREE $29.95 CARTRIDGE GAME) 



LIST PRICE $159.95 



Just plug in the 32K RAM MEMORY EXPANDER and you have as much usable programming 
memory as the Commodore-64 computer! ! ! This 32K RAM EXPANDER CARTRIDGE gives 
your VIC-20 computer 9 TIMES MORE PROGRAMMING POWER!! 



5 YEAR WARRANTY 




MASTER 

CONTROL 

SWITCHES 



GOLD EDGE 
CONNECTORS 



FEATURES 

Allows Full 32K Memory Expandsion 

Separate Enable Switch lor each 8K Block 

Gold Plated Contacts 

Premium Grade Components 

Fully Tested and Burned In 

5 Year Warranty 

Complete Documentation 



1/2 PRICE EXPANSION SALE!! 



3K Ram Expander 

8K Ram Expander (2'A times more power) , . 
16K Ram Expander (4 times more power). . . 
32K Ram Expander (9 times more power) 

{PLUS $29.95 FREE GAME CARTRIDGE) . 
3 Slot Expander Board — Switch Selectable 



LIST 

$ 39.95 
$ 69.95 
$ 99.95 

$159.95 
$ 49.95 



SALE 

$19.95 
$34.95 

$49.00 

$79.00 

$24.95 



WE LOVE OUR CUSTOMERS! 



| Add $3 00 for poslage Add 16 00 lor CANADA PUERTO RICO Hawaii ■ 

| orders WE DO NOT EXPORT TO OTHER COUNTRIES I 

| Enclose Cashiers Check. Money Order or Personal Check Allow H | 

| days (or delivery. 2 lo 7 days lor phone orders, I day eipress mail 1 

J Canada orders musl be in U S dollars We accepl Visa and Master 

I Card We ship COD 



pMirpBDDI FS wei-Oveouhcustomersi 

BOX S50, BARRINGTON, ILLINOIS 60010 
Phone 312/382 5244 to order 



Reader Service No. 14 




ISSUE § 1— JAN. '84 $4.00 
The 64 v. the Peanut! The com- 
puter as communications device! 
PtOtecto's Bill Badger inter- 
viewed! And ready to enter: the 
Multi Draw 64 graphics system! 
The Interrupt Music Maker/ 
Editor! A Peek at Memory! Pro- 
gramming Sequential Files! 



Afeoyt 

Back Issues 



Don't punch another key 
without a complete collection 
of Ahoy! and the program- 
ming strategies and product 
analyses each issue provides. 
Order white supplies last! 







ISSUE ft 2— FEB. '84 $4.00 

Illustrated tour of the 1541 disk 
drive! Synapses Ihor Wolosenko 
interviewed! Users groups! Arti- 
ficial intelligence! And ready to 
enter: Music Maker Part Ii! 
Night Attack! Programming Rel- 
ative Files! Screen Manipulation 
on the Commodore 64! 
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ISSUE 03-MAR. '84 $4.00 
Anatomy of the 64! Printer In- 
terfacing for the 64 and VIC! 
Educational software: first of a 
series! Commodares! And 
ready to enter: Space Lanes! 
Random Files on the 64! Easy 
Access Address Book! Dynamic 
Power for your 64! 




ISSUE #4— APR. '84 $4.00 

Petspeed and Easy Script 
tutorials! Printer interfacing and 
educational software guide con- 
tinued! Lower case descenders 
on your 1525! Laserdisc! The 
Dallas Quest Adventure Game! 
And ready to enter: Apple Pie! 
Lunar Lander! Name that Star! 



ISSUE #5— MAY '84 $4.00 

The Future of Commodore! In- 
side BASIC program storage! 
C-64 Spreadsheets! Memory 
Management on the VIC and 64! 
Educational Software Guide 
continues! And ready to enter: 
Math Master! Air Assault! Bio- 
rhythms! VIC 20 Calculator! 



ISSUE #6-JUNE '84 $4.00 

Game programming column 
begins! Program generators! 
Rupert on inputting! Memory 
Management and Educational 
Software Guide continue! And 
ready to enter: Post Time for 
the 64 and 20! Alpiner! Sound 
Concept for the VIC 20! 



Send coupon or facsimile to: 

Ahoy! Back Issues, Ion International Inc.. 45 West 34th Street— Suite 407, New York. NY 10001 

it? 



Please Send Me The Following: 

Copies of issue number 

Copies ol issue number 

Copies of issue number 



NAME 

ADDRESS 



3> 



Enclosed Please Find My Check or 
Money Order for $ 

(Outside the USA please 
add $1 .00 for every copy) 



CITY 

STATE 

ZIP CODE. 
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SOUC CURSOR 

aouc 

CURSOR 

youc CURSOR 



By Michael Kleinert and David Barron 

This month we thought we would take a step back 
into the past to a time when we first began using 
Commodore computers. That first 8K PET with the 
calculator keyboard possessed four puzzling keys 
above the numeric keypad. It didn't take us long to 
figure out that these keys were used for "onscreen" 
editing of your program. It wasn't until later that the 
real power of these keys was unleashed. It just so 
happens that Commodore has maintained the func- 
tion of these keys in all of their computers, including 
your VIC or 64. 

These keys are used to control cursor movement 
and positioning from within a program. Even when 
a program is running and you do not actually see a 
cursor on the screen, the computer is keeping track 
of where the "cursor" should be. This is where the 
next printed item will appear. 

When a print statement is executed, with each 
character displayed, the cursor is moved over one 
character to the right. When the computer is finished 
with the line, the cursor moves back to the left hand 
column, and down to the next line. If you happen to 
tag a semicolon to the end of the print statement, the 
cursor stays at the position following the last printed 
character. 

10 PRINT "HELLO," 

20 PRINT "THIS IS A SAMPLE RUN WI 

THOUT A SEMI-COLON." 

30 END 

RUN 

HELLO, 

THIS IS A SAMPLE RUN WITHOUT A SE 

MI-COLON. 

10 PRINT "HELLO, " 



20 
TH 
30 

RUN 



PRINT "THIS IS 
A SEMI-COLON." 
END 



A SAMPLE RUN WI 



HELLO, THIS 
SEMI-COLON. 



IS A SAMPLE RUN WITH A 



If you have ever tried typing any of the cursor 
control keys after typing quotation marks, you have 
probably found that strange symbols appear. When 
you type an open quotation mark, the built-in editor 
goes into "quotes mode." This means that when you 
now type any of the cursor controls, including 
CLEAR SCREEN and HOME, it will not respond 
with its usual function, but will instead print its 
identifying symbol. (Function keys, color keys, IN- 
SERT, RVS ON and RVS OFF produce their own 
symbols as well.) Below is a chart of these symbols. 



CURSOR UP 
CURSOR DOWN 
CURSOR LEFT 



CURSOR RIGHT 
HOME CURSOR 
CLEAR SCREEN 



The up, down, left, and right cursor functions 
move the cursor one space in their respective direc- 
tion. This is a "non-destructive" cursor movement. 
In other words, the cursor will be moved without 
erasing anything in its path. This enables you to 
move the cursor anywhere on the screen without any 
ill effects. The clear screen control clears the screen 
and returns the cursor to the upper left comer. 
Home puts the cursor in the upper left corner with- 
out clearing the screen. 

AHOY! 37 



You may be wondering how you can use these 
cursor control functions to your advantage. They can 
be used to format text on the screen neatly, or to up- 
date data which is being displayed on the screen 
without erasing the screen and reprinting everything. 

Below is a sample program that displays the con- 
stantly changing built-in clock and a running counter 
simultaneously using cursor controls. 

10 PRINT"{SC}" 

20 PRINT" {HM} {CD} [CD} (CD) {CD} {CR} 

(CR) {CR} {CR} {CR)";TI$;" {CR} {CR} {C 

R) {CR} {CR}";C 

30 C=C+1 

40 GOT020 

Without knowledge of cursor controls, to clear the 
screen and print an asterisk in the 10th column of 
the 5th row of the screen, you might be inclined to 
write the following program. 

5 PRINT"{SC}"; 

10 F0RX=1T05 

20 PRINT 

30 NEXT X 

40 PRINT TAB(10) ;"*" 

50 END 



However, with cursor controls, the above program 
can be accomplished with just one print statement as 
shown below. 

10 ■ PRINT" {SC} {CD} {CD} {CD} (CD) {CD} 
{CRHCR} {CR}{CR} {CR} {CR} {CR} {CR} { 
CR} {CR}*" 

20 END 

In the print statement above, the first character 
clears the screen and moves the cursor to the upper 
left hand corner. The next five characters move the 
cursor down five lines, and the next ten characters 
bring the cursor over ten spaces to the right. The as- 
terisk is then printed in this position. 

The cursor control characters can also be used to 
create some simple animation. Let's say we want to 
move the two characters '— > " across the screen. 
The technique for moving this "arrow" is fairly sim- 
ple. It must be printed, then the tail must be erased, 
and it is then printed again over one screen position. 
A trick used in doing this is to always print a space 
before the arrow. Using this trick, in moving over 
one screen position and reprinting the arrow, the 
space will always erase the old tail. This is a bit 
hard to follow at first, so below is a diagram to help 
clarify this. 



Cursor is here 
i 



space 


— 


> 







t 

Print two "cursor lefts" to move cursor here 



space space 



t 
Printing a space and then the arrow erases 
the old tail and "moves" the arrow to the right 

The following program imitates the above steps to 
move the arrow: 

10 PRINT" {SC} {CD} {CD} {CD} {CD} {CD} 

(CD}"; 

20 FOR X = 1 TO 35 

30 PRINT" ->{CL} {CL}"; 

40 FOR Y = 1 TO 50 : NEXT Y : REM 

DELAY LOOP 
50 NEXT X 
60 END 

Moving a character in a vertical direction is a lit- 
tle bit different. To move an asterisk down the 
screen, we must repeat the following steps: 

1. Print the asterisk 

2. Erase the asterisk 

3. Move the cursor down underneath the previous 
asterisk 

4. Go back to step 1 

Imagine that the following diagram represents four 
positions on the screen. 



♦-Cursor is here 



* 


2 


3 


4 



After printing the asterisk in box 1, the cursor will 
be positioned in box 2. Therefore, to erase the aster- 
isk we must move the cursor back to box 1 with a 
cursor left. 



After cursor left, 
cursor is here -*■ 



* 


2 


3 


4 



Continued on page 48 



Next issue, David Barron delves into one of your Commodore 64s most amazing facets: its sound-produc- 
tion capabilities. His two-part article /program will be your key to Unraveling the Mysteries of Sound! 
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Programming 
Challenges 



^^^«± 

by Dale Rupert 



Each month, we'll present several programs 
designed to toggle the bits in your cere- 
bral random access memory. We invite 

you to send your solutions to Commodares, 

P.O. Box 723, Bethel, CT 06801. We'll print and 
discuss the cleverest, simplest, shortest, or most un- 
usual solutions. Your original programming prob- 
lems would be equally welcome! 



Problem #7-1: Definite Ending 

This problem was submitted by Paul T. Dawson 
of Springhouse, Pennsylvania. Paul's problem is to 
write a one-line program which does not GOTO it- 
self or RUN itself. It must create a changing dis- 
play. And (here's the catch) it must take as long as 
possible to run! It must eventually end on its own, 
but that "eventually" may be long after you and I 
are gone. 

Paul sent his solution which we will list next 
month. He claims his one-liner will take 2E+134 
years to finish. That's a good start, but surely some 
other Ahoy! readers can put that number to shame. 
Your solutions should also include an explanation 
for how the duration was calculated. (Deadlines 
won't allow us to run them all to completion!) 

Problem #7-2: Unscrambled Word 

This problem was submitted by Kent Rittcnhouse 
of Wauseon, Ohio. Kent's problem is to write a 
program for which you can enter a scrambled word, 
and the computer will print out all possible combin- 
ations (or permutations, to use the technical term) of 
the letters of that word. 

We won't require that the computer be able to de- 
cide which of the combinations is the correct, un- 
scrambled word. You would easily be able to select 
the correct word from among the 3.6 million or so 
( 10 factorial to be exact) combinations resulting from 
any ten-letter word you might enter. DOGO KULC! 



Problem #7-3: Letter Count 

The user types a sentence into the computer, and 
the computer responds with the number of letters in 
the sentence. Punctuation marks and spaces are not 
counted. 



Problem #7-4: Word Count 

The user types a sentence into the computer, and 
the computer responds with the number of words in 

the sentence. Easier said than done? 



Because of time delays between the time this col- 
umn is written and the time it is actually published 
(this being written on a chilly March evening), it 
will be a while before there are any solutions sub- 
mitted for last month's Commodares. Consequently 
we will present the results of Problem #6-1: Speed 
Demon once we have some results. 

Problem #6-2: Simple Mystery probably didn't 
fool too many of you. It merely allowed the user to 
type, while any vowels that were typed appeared in 
reverse video on the screen. 

A solution to Problem #6-3: Siring Challenge is 
listed below. The subroutine at line 100 determines 
the starting location, if any, of the string A$ within 
the string B$. It assigns the value of that starting 
position to N. Line 150 is executed only if A$ is 
found within B$. QQ then stores the value we want 
for N. In order to terminate the FOR-NEXT loop 
properly, QQ is assigned the maximum value for 
the loop. That way when the NEXT statement is ex- 
ecuted, the program continues with line 170. This is 
a way of cleaning up after yourself when you leave 
a FOR-NEXT loop prematurely. 

10 REM > PROBLEM #6-3 : STRING CH 

ALLENGE 

20 A$="CAT":B$="CONCATENATE" 

30 G0SUB 100 
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40 PRINT N 

99 END 

100 ::REM > INSTRING SUBROUTINE 

< 

110 LA=LEN(A$) :LB=LEN(B$) 

120 N=0 

130 FOR QQ=1 TO LB-LA+1 

140 IF A$ < > MID$(B$,QQ,LA) THEN 

160 
150 N=QQ : QQ=LB-LA+1 
160 NEXT QQ 
170 RETURN 

There probably won't be any one-liners to do 
Problem #6-4: Graphic Rectangle. The program be- 
low first assigns to variables the various graphic 
symbols that will be used. Line 80 puts the correct 
space at the top of the screen. It divides the total 
unused vertical space (24-H) in half. Line 1 10 deter- 
mines the amount of open space to the left (LS). 
Line 120 puts the space there. Line 130 prints the 
Upper Left corner. Lines 140-160 print the Top. 
Line 170 prints the Upper Right corner. The sides 
are printed by lines 180-200. Lines 210-260 put on 
the bottom. 



PROBLEM #6-4 : GRAPHIC REC 



10 REM 
TANGLE 
20 UL$=CHR 
30 LL$=CHR 
40 T$=CHR$ 
50 L$=CHR$ 
60 INPUT " 
70 PRINT C 
80 FOR N=l 
90 PRINT 
100 NEXT 
110 LS=(40 
120 PRINT 
130 PRINT 
140 FOR N= 
150 PRINT 
160 NEXT 
170 PRINT 
180 FOR N= 
190 PRINT 
200 NEXT 
210 PRINT 
220 PRINT 
230 FOR N= 
240 PRINT 
250 NEXT 
260 PRINT 



$(111) :UR$=CHR$(112) 
$(108):LR$=CHR$(186) 
(183):B$=CHR$(175) 
(165) :R$=CHR$(167) 
HEIGHT, WIDTH";H,W 
HR$(147) 
TO (24-H)/2 



-W)/2 

SPC(LS); 

UL$; 

2 TO W-l 

T$; 

UR$ 

2 TO H-l 
SPC(LS);L$;SPC(W-2) ;R$ 



SPC(LS) ; 

LL$; 

2 TO W-l 

B$; 

LR$ 



We are still receiving solutions to the Palindromes 
and Reversals problems from the March Ahoy! Paul 
Dawson combined the Crossed Name and Reversals 
to come up with the following program. 

10 REM > CROSSED AND REVERSED NAM 

E < 

20 INPUT A$:PRINT CHR$( 147 ) : L=LEN 

(A$) 

30 FOR A=l TO 9E9 : FOR B=0 TO 38 

-L 

40 FOR C=l TO L 

50 PRINT CHR$(145)TAB(B+C)MID$(A$ 

,C,1) 

60 PRINT CHR$(145)TAB(39-B-C)MID$ 

(A$,C,1) 

70 NEXT : PRINT : NEXT : NEXT 

Thanks to the following people for their work on 
Palindromes and/ or Reversals: Ray Winter (Savage, 
MT), Michael Vail (Thompson, PA), Barbara Stein- 
man (New York, NY), A.L. Russ (Auburn, KS), 
R. Shane Robinson (Avoca, IA), Kent Rittenhouse 
(Wauseon, OH), Dave Play ford (Brockville, Ontar- 
io), Charles Morgan (Los Angeles, CA), Steve Mol- 
loy (Chelmsford, MA), Richard Magoun (Plympton, 
MA). Wilf Long (Manitowaning, Ontario), John 
Eveland (Des Moines, IA), Rob Einer (Woodruff, 
WI), Paul Dawson (Springhouse, PA), Tony Dama- 
to (Jacksonville, FL), Joe Cook (Paw Paw, MI), 
Robin Boyd (Lakewood, NJ), Robert Bostwick (No. 
Platte. NE), and John Adams (St. Charles, IL). 

Their solutions varied from long to short, user- 
friendly to bare-necessities, and with differing de- 
grees of flexibility. Thanks for all the kind words 
and suggestions, too. Till next month, keep those 
brains working! □ 
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PROGRAMMERS! 

Ahoy! is looking for the best In games, utilities, edu- 
cational programs, music programs, graphics pro- 
grams, and programs that completely defy descrip- 
tion. If you have an original C-64 or VIC 20 program, 
we'd like to see it. 

Send a copy of your program on disk or tape, ac- 
companied by a printout and an introductory article, 
to Ahoy! at 45 West 34th Street— Suite 407, New York, 
NY 10001. You must include a self-addressed mailer 
with sufficient return postage affixed. 
Ahoy! pays competitive rates for accepted programs. 
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FOR THE C-64 



By Joseph Fusco 



Most card games depend primarily on 
luck. Brisk is one in which you must 
rely on strategy, luck, and memory. You 
must try to outwit the computer, be 

lucky with dealt cards, and remember cards played 
and points accumulated. The game could be pro- 
grammed for two players, but I felt computers 
make very tew mistakes and present a formidable 
opponent. 

Type in the program, then save a copy to disk or 
tape before running in case of typing errors! Typing 
errors may cause your program to crash, losing 
hours of typing. 

fhe following will give you an idea of how to 
play the game. 

The object of the game is to be the first player to 
score 121 points. The game is played in two hands, 
each consisting of twenty rounds and worth 120 
points. You must try to score as many points as you 
can in each hand. The more points you make in the 



first hand, the less you will have to make in the 
second hand. As soon as one of the players reaches 
121 points the game is over! Playing the game well 
takes a little practice. After reading the instructions 
you will have the fundamentals of how to play. 

The game is played with forty cards. There are 
no 8's, 9's, or 10"s in the playing deck. 

Point values for each card are as follows: 

1) ACES are worth eleven points. 

2) THREES are worth ten points. 

3) KINGS are worth four points. 

4) JACKS are worth three points. 

5) QUEENS are worth two points. 

All other cards have no point value. In this card 
game the JACKS are higher than the QUEENS. 

The computer deals seven cards at the start of 
each hand: three to you, three to itself, and one face 
up. 

Trump is determined by the card that is face up 

Continued on page 48 
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AN IN DEPTH REPORT 



By Morton Kevelson 



W~ hile dual disk drives arc nothing new 
to the veterans of microeomputing, 
many of our readers are still novices 
in this regard. A good percentage are 

probably still considering the aquisition of their first 
disk drive. Just what is a dual disk drive and how 
does it differ from the Commodore 1541? What 
does it do to justify the premium price tag, more 
than twice that of two 1541 disk drives? Is it twice 
as hard to figure out as the 1541? One would cer- 
tainly hope not, as figuring out the 1541 was bad 
enough. 

Read on. The answers to these questions and 
more will be forthcoming. 



WHY DUAL DISK? 

The Commodore 1541 disk drive is a very power- 
ful data storage device, capable of storing over 
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170,000 bytes of data on the surface of a magnetical- 
ly coated floppy disk. Even more important, any of 
this data can be rapidly and randomly accessed by 
the computer. This large storage capacity, combined 
with direct access to data, easily justifies the pur- 
chase of a disk drive. 

This being the case, what advantage does a se- 
cond disk drive offer? The most obvious is a doub- 
ling of accessible storage capacity. The widespread 
acceptance of the Commodore 64 has resulted in a 
concurrent development of more sophisticated soft- 
ware. These programs are very often too complex to 
reside in the computer's memory and still leave 
space for data. Software developers are able to work 
around this limitation by breaking up the programs 
into functional modules which are stored on the 
disk and called when needed. (See Memory 
Management Parts I & II, May and June Ahoy!, for 



examples of these techniques.) 

In many cases, commercial programs are copy 
protected, making it inadvisable or impossible to 
store data on the same disk. Other commercial 
packages are so complex that little or no space is 
available on the program disk for data storage. In 
either case, the user must swap disks each time a 
data or program operation is called for: a tedious 
procedure at best, aggravating])' time-consuming at 
worst. Having two drives, one for program and one 
for data, is a clear advantage. 




Shortly after acquiring a disk drive, the need for 
maintaining backup copies of both program and 
data files becomes obvious. With regard to program 
files, a simple LOAD, swap disk and SAVE will 
usually work. The process becomes more involved 
with non-relocatable machine language programs 
and various types of data files. The latter always re- 
quire some kind of custom program just to be read. 
These copy programs always require the use of the 
computer for their operation. For single drive 
owners these utilities are essential. 

Although the solution to backing up most disks is 
readily available, it is not particularly convenient. 
The process tends to be time consuming. The 
primary limitation is the speed at which data can be 
transferred between the computer and the disk 
drive. In the case of the Commodore 64 and the 
VIC 20, the connecting link is the serial bus. To 
lower production costs. Commodore designed this 
link with a minimum number of wires. Data is 
transferred over a single conductor one bit at time. 
Compare this to the eight wires, which transfer a 
full byte at one time, inside the computer. To 
enhance the reliability of the link, and keep the 
price down, the transmission speed was kept slow. 
As a result, LOAD and SAVE operations do take 
time. 



Slow operating speeds are fairly easy to live with 
when loading and running programs. Backing up 
data is another story. This process, although essen- 
tial, is basically nonproductive. Typical backup 
times for an entire disk are on the order of twenty 
to forty minutes. The time varies depending on the 
particular software being used. Additionally, during 
the backup procedure, the computer is tied up. It 
must act as both a controller and an intermediate 
storage area for the data being duplicated. 

A single disk drive poses an additional bother. 
The computer has considerably less memory than 
the capacity of a disk. The user must attend the en- 
tire procedure, swapping disks four or more times. 
Two single disk drives offer some relief. The user 
is able to "walk" away and let the computer do all 
the work. Two single drives do not speed things up 
very much because the data must still pass through 
the computer via the same serial bus. The 
computer again remains tied up for the duration. 

Consideration must also be given to the fact that 
the useful life of the disk drive is being frittered 
away while duplicating disks. Although the 1541 ap- 
pears to be designed for continuous operation, long 
copy sessions will raise the operating temperatures 



PHOTO 2: 
Back of the 
MSD has all 
the standard 
1541 connec- 
tors, including 
two serial port 
connectors that 
allow daisy 
chaining of 
additional disk 
drives. 




to their maximum. Rumor has it that many users 
have found the drive's limitations the hard way. 

THE MSD SD-2 

The MSD SD-2 is a true dual disk drive. This 
means that the two drive mechanisms share a com- 
mon controller and have available a common inter- 
nal bus for high speed communication. The advan- 
tage of the internal bus is that it does not utilize the 
computer as an external data link. After all, com- 
puters have lots of better things to do than act as a 
chit-chat link for a couple of disk drives. Further- 
more, having a common controller allows the disk 
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operating system to have the necessary copy com- 
mands built right in. Once again, the computer can 
go about its business without bothering with all 
those copy programs. 

The MSD SD-2 has these capabilities. In addition 
to all the 1541 DOS commands, the Duplicate com- 
mand is also supported. This command is part of 
the Commodore DOS on the now discontinued 
CBM 4040 dual disk drive, as well as all the other 
Commodore dual disk drives. Executing the com- 
mand will cause the disk drive to make an exact 




duplicate of the original disk. The syntax is 

straightforward: 

OPEN 15,8,15,"D1=0" 

Or if the command channel is already open: 

PRINT#15,"D1=0" 

If the DOS wedge has been initialized, 

/DUO 

does the job. In each case the disk in drive will 
be duplicated onto the disk in drive 1. Note the use 
of drive numbers and 1. The duplicate command 
works in either direction by simply reversing the 
drive numbers in the command. 

Both drive units are still addressed with a single 
device number. The individual drive units are select- 
ed by the drive number parameter (dr) embedded in 
the actual DOS command. Users of the 1541 single 
disk drive may have noticed references to this 
parameter in their manual without paying too much 
attention to it. The parameter is rather superflous 
with a single drive. 

The duplication process is farih quick. The total 
time involved, including formatting of the destina- 
tion disk, is one minute and fifty four seconds! 

Yes, that is less than two minutes. When you con- 
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sider that a 1541 lakes a minute and a half just to 
format a disk, this is quite an improvement. 

Hold on now! Don't go off in search of your 
checkbook, credit cards, or local bookie. This is 
just the icing on the cake. Before we get into the 
rest of the operating details, let's take a break and 
look at the hardware. 

THE HARDWARE 

The MSD SD-2 is a boxy looking affair in a stur- 
dy steel case. This case also acts as a heat sink for 
the drive electronics, keeping things from getting 
too hot. The drive stands six and one-eighth inches 
high by five and seven-eighths inches wide and thir- 
teen inches deep. The overall volume of 468 cubic 
inches is just 15 percent larger than the 407 cubic 
inches occupied by the 1541 disk drive. 

The front panel is shown in photo 1. The two 
drive units are vertically oriented. The disks are in- 
serted vertically with the labels to the left. As 
shipped from the factory, drive is to the left and 
drive I is to the right. If you are a veteran CBM 
4040 user, which has drive to the right, or are 
left handed, or just have an aversion to this par- 
ticular arrangement, the drive numbers can be easi- 




ly changed. We shall see how shortly. For some rea- 
son. MSD chose not to supply any drive number 
labels for the front panel— a minor oversight. 

The disks are secured by the positive action of 
twisting the locking levers (item 1, photo I) a 
quarter turn clockwise. There are no spring loaded 
doors or disk ejection mechanisms with this ar- 
rangement. The disk openings are properly recessed 
to permit a firm finger grip on the disk jacket. This 
allows the user to overcome any adverse effects due 
to loose labels or write protect tabs. 

You will also notice, in photo 1, the presence of 
five indicator lights. Some of these light-emitting 



diodes (LED) are the indicators that Commodore 
left out on the 1541. The green Power LED, in the 
upper left hand corner, serves a dual purpose. A 
built-in diagnostic routine will identify certain com- 
ponent failures by cyclically blinking a number of 
times on power up. The number of flashes in each 
cycle (1 to 7) identifies the particular failed compo- 
nent. These could be the microprocessor, the RAM 
or ROM chips, or the drive mechanism. This feature 
could save a service call or shipment back to the 
factory for a knowledgeable user. During normal 
operation this light glows continuously. 

The two drive LEDs, labeled Drive and Drive 
1, indicate when a disk file is open on the respec- 
tive drive unit. This can be very useful for a pro- 
grammer when debugging is being done. These 
lights will also blink when a disk error condition 
occurs. These lights actually perform the same 
function as the red LED on the 1541 disk drive. 

In addition, each drive unit has a red activity 
LED (item 2, photo 1). These indicate which unit is 
physically active at any given time. They will light 
up whenever the drive motor for the corresponding 
unit is spinning. 

The back of the disk drive (photo 2) has all of 
the standard 1541 connectors. The two serial port 
connectors (item 1, photo 2) allow the daisy chain- 
ing of additional disk drives and a printer. The 
power connector (item 2, photo 2) is identical to 
the one on the 1541 as well. And as with the 1541, 
the power switch is inconveniently located on the 
back panel. The most important difference back 
here is the presence of the 24 pin "D" connector 
(item 3, photo 2). This connector is a fully imple- 
mented 8-bit parallel IEEE-488 interface. The 
presence of this interface makes the MSD SD-2 ful- 
ly compatible with all of the Commodore PET and 
CBM series computers, as well as the Commodore 
64 and VIC 20. Therefore no additional adaptors 
are required to use the disk drive with any of Com- 
modore's current line of computers. The IEEE-488 
interface, being a parallel interface, allows signifi- 
cantly faster data transfers than the serial bus — two 
to three times faster as it turns out. More on this 
later. 

(For the curious in our audience, IEEE stands for 
The Institute of Electrical and Electronic Engineers. 
This is one of the privately run, non-profit national 
engineering organizations. Among other things, the 
IEEE has assumed the responsibility of publishing 
standards for use as voluntary guides to promote 
uniformity in industry. The term IEEE-488 refers to 
one of these standards.) 



Maintenance of the disk drive should be a ser- 
viceperson's dream. The steel cover can be easily 
removed by extracting the three screws on each side 
of the case. Doing so reveals the two half-height 
floppy units by T.E.C. (Tokyo Electric Works) 
(photo .1) and a nicely laid out main circuit board. 
These components, along with the power 
transformer on the main chassis, make up the entire 
works of the disk drive. 

Attention to detail and reliability is evident. The 
incoming power line is fully suppressed by a self- 
contained power line filter (item 1, photo 3). Due to 
this, no external surge protection is required with 
the disk drive. The drive's device number can easily 
be changed by simply removing one or both of the 
convenient jumper plugs on the main circuit board 
(item 2, photo 3). There are no wires or circuit 
traces to cut here. 

The large disk, with the radial strobe markings, 
is a quartz-locked, brushless dc disk motor, which 
spins the disk at a very constant 300 revolutions per 
minute. The read/write head stepper motor (item 3, 
photo 3), which positions the read/write head to the 
required track, is slightly above and to the rear. 
Each drive module has its own control electronics, 
which simplifies the tasks performed by the main 
control board. 

As with all Commodore peripherals, the MSD 
SD-2 is an "intelligent" drive. The DOS is com- 
pletely contained in 16 kilobytes of ROM on the 
main circuit board. The heart of the SD-2 control 
system is a 6511Q microprocessor. DOS work space 
and buffers are provided for by 6 kilobytes of on- 
board RAM. 

The individual drive units can easily be removed 
(photo 4) for servicing by simply extracting two 
screws from the bottom of the case. Two cable con- 
nectors at the back of the unit complete the job. 
Once removed, head cleaning can easily be done as 
described in Inside the 1541 Disk Drive: A Guided 
Tour (February Ahoy!). The pressure pad arm 
assembly is item 1, in photo 4. 

At this point the drive numbers can be changed 
as mentioned earlier. Each drive unit has a push on 
connector (item 2, photo 4) which sets it to drive 
or to drive 1. By simply resetting these connectors, 
the unit can be configured with drive to the right. 
The drives should be left in their original physical 
position, since the order in which they are con- 
nected is important. 

The overall operation of the drive is slightly 
noisier than the 1541. One noise, however, is con- 
spicuous by its absence. The drive never makes the 
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loud chattering sound, associated with the 1541, 
whenever a disk is formatted or a disk error is de- 
tected. This is because head position is optically 
sensed by the MSD drive. It is not necessary to 
knock the head positioning assembly against a fixed 
stop to determine its location. This feature should 
significantly lengthen the interval between head 
alignments. 

MORE ON THE DOS 

The MSD SD-2 DOS is 100 percent compatible 
with all Commodore disk operations and formats 
associated with the CBM 4040, 2031, 1540, and 
1541 disk drives. All Commodore DOS commands 
are fully implemented. The only problems we en- 
countered dealt with software which made direct 
calls to routines within the DOS itself. For exam- 
ple, the copy protection on the Electronics Arts 
Software series seems to use direct calls, as these 
disks would not load on the MSD. This is really 
not a significant drawback. There is no guarantee 
that future versions of the Commodore 1541 ROM's 
will maintain this compatibility either. 

More important to compatibility is the availability 



of the serial bus. Absolutely no additional hard- 
ware, or software, is required to access all of the 
dual drive capabilities with a VIC 20 or a Com- 
modore 64. Thus all of the computer's memory is 
available for application programs. 

The SD-2 really shines when used with software 
which recognizes a dual drive, such as Calc Result 
Advanced. The first time we used this program, it 
took nearly one hour to initialize the program disk 
and create a backup copy. With the SD-2, the entire 
process took less than five minutes! 

The Commodore CP/M card works very well 
without the need for an IEEE-488 adaptor. Simply 
plug in the CP/M card and the SD-2. Run the 
CONFIG utility to set up for a dual drive and you 
are all set. There is no need to reduce the size of 
CP/M to 44K from the 48K maximum as described 
in the Commodore 64 CP/M Operating System 
User's Guide. 

Unfortunately, these advantages do not extend to 
software packages which only recognize the existence 
of the 1541 single drive. These programs presume 
that two drives will exist as device numbers 8 and 

Continued on page 61 



TELSTAR 64 

Sophisticated Terminal Communications Cartridge for the 64. 

•PFO' 10D OOD CP D1 D2 BELL 12:30:00 10:14:36 

(TELSTAR's Status Line) 

Don't settle for less than the best! 

• Upload/Download to/from disk or tape. 

• Automatic File Translation. 

• Communicates in Industry Standard ASCII. 

• Real-Time Clock plus Alarm Clock. 

• Line editing capability allows correcting and resending long command lines 

• 9 Quick Read functions. 

• Menu-driven. 

• Similar to our famous STCP Terminal package. 

• Works with Commodore Modems and supports auto-dialing. 

The best feature is the price — only $49.95 (Cartridge and Manual) 



Machine Language Monitor Cartridge 

for the CBM 64 

More than 20 commands allow you to access the CBM 64'$ Microprocessors 
Registers and Memory Contents. Commands include assemble, disassemble, 
registefs. memory, transfer, compare, plus many more. 

Someday every CBM 64 owner will need a monitor such as this. 

Cartridge and Manual — S24.95 



8K in 30 Seconds 

for your VIC 20 or CBM 64 

rl you own o VC 20 or o CBM M ond hove been concerned 

about the high cos' of a disk to store your pogroms on 

worry yourself no longer Now there; the RABBIT The RABBIT 

cornes in a cartridge ond at a much much lower price 

than the average ask Andspeed thisiianelaSRASflIT 

With the BABBIT you can load ond stoteon your C3M 

Ootosette on 6K program n almost 30 seconds, compared 

Jo rhe current 3 minutes ot o VtC 20 or CBM 64. olmost as 

lost os the 1541 disk drive 

The RABBIT is easy to install, allows one to Append 

Basic Programs, works with or without Expansion 

Memory, ond provides two data Me modes The 

RABBIT is not only tost but reliable 

fine Rabt>t tor the VIC 20 contains on expansion con 

neclor so you con simultaneously use your memory bcoid, etc ] $ 39. 95 
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NOW 
THE BEST 

FOR LESSI 



$59.95 \ 



For CBM 64, PET, APPLE, and ATARI 

Now. you can have ihe same piotoulonalh/ designed Macio 
Assembled Editor a* used on Space Shuttle project 

• Desjgned to imc*oveProgrommef Productivity 

• Sirrutof syntax and commands - No need to refearn peculiar 
syntaxes ar»d commands wnen you go bom PET to APPLE to 
ATARI 

• CofesrOenf Assemt^/Ecitof-^needioloodthflEctic'.ihen 
the Assembler then the Editor, etc 

• Also includes WOrd Processor. [Jetocahng Loader, and much 
more 

• Powerful Editor. MceiC4 Conchtiorol and intefodrve 
Assembly, ond Auto - two page aaoVesvng 

Strli not convinced. »nd tor our free spec sneef* 
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3239 Linda Dr. 
Winston-Salem. N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 
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MATH 




for the C-64 and VIC 20 




By Andy 

ath problems are falling from the sky! 
You, as the lone defender, must posi- 
tion your cannon and blast the prob- 
lems with the right answer. If just 
one of the problems lands on your base, all is lost! 

This math game allows the user to pick from addi- 
tion, subtraction, multiplication, or division, alone 
or in any combination. Three skill levels (related to 
the speed of the problems' descent) are available. 
Two versions are included here, one each for the 
VIC and the 64. VIC players must ward off three 
problems at a time, while 64 users battle five! Points 
are awarded for each correct answer, and are de- 
ducted for each 'miss'. 

Other than the number of problems falling, the 
only major difference between the two versions stem 
from the different sound addresses and screen widths. 
The title page is also a little fancier for the 64, and 
is located in a subroutine at the end of the program. 

When the game is loaded and run, the title page 
will be followed by a menu of problem types. Press- 
ing "Y" will include the indicated type, and 'N" 
will exclude that type. The next menu determines 
the skill level— the more advanced your skill level, 
the faster the problems will fall. The "F" key is 
used to move the marker ("cannon") to the left, and 
the "J" key moves it right. I experimented with sev- 
eral combinations of keys, and found that these par- 
ticular two provided the best compromise between 
speed of moving the marker and protection from ac- 
cidental number entries. The hands are centered on 
the keyboard very nicely. Other keys can be used, if 
you wish, by changing the values in line 109. Once 
the marker is situated under the desired problem, the 
user can enter the answer, followed by the RETURN 
key. There is no delete function (sacrificed for 
speed), so typos must be entered as incorrect an- 
swers. An incorrect answer results in a short buzz, 
and play continues after the score is decremented. 



Van Duyne 

Correct responses cause the problem above the 
marker to be "blown up", and a new one will take 
its place at the top of the screen. (Note: once an an- 
swer is begun under a particular problem, a RE- 
TURN must be pressed before the marker may move 
again— you cannot leave half-finished answers lying 
about the screen!) Play will continue until one of the 
problems make it to the baseline unsolved. 

There are a few other aspects you may wish to 
modify to suit your needs. The speed of descent for 
each skill level is determined by lines 1500-1504, 
with the equation in 1504 actually setting the value. 
You can also adjust the parameters of the math prob- 
lems in the routine in lines 4CM8. The problems are 
derived from two seed numbers generated in line 42, 
which creates two numbers in the range 0-9. Actual 
problem formation for the types is handled by the 
following lines: 



type 


line(s) 


addition 


43 


subtraction 


44 


multiplication 


46 


division 


47, 48 



Entry of either of the programs is rather straight- 
forward, with no special typing problems involved. 
However, pay particular attention when typing the 
lines to establish the placement strings (14-17). If you 
prefer not to type either of the programs, I will 
make a copy for you. Send $3.00, a blank cassette or 
formatted disk, and a self- addressed stamped mailer 

to: 

Andy Van Duyne 

Box 226 

Norwood, NY 

Please be sure to specify which version you would 
like (VIC or 64). 

SEE PROGRAM LISTINGS ON PAGE 72 
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TOAimnG y our cursor 

Continued from page 38 
Now we print the space, which will erase the as- 
terisk and position the cursor in box 2 again. 



Printing a space 
here erases -*■ 
asterisk 



1 


2 


3 


4 



Cursor is 
again here 



We want the next asterisk to appear in box three. 
In order to get the cursor there, we will print a cur- 
sor down (box 4), a cursor left (box 3), and then 
print an asterisk. 



Now cursor is 
here to print 
asterisk 



1 


2 t 


3 


4 . 



Cursor is here 
■*- after printing 
asterisk 



The cursor is now where we want it to repeat this 
sequence again. In the program below, a FOR... 
NEXT loop will repeat this procedure 20 times to 
move the asterisk down the screen. 

10 PRINT" {SC}{CR}{CR} {CR} {CR}{CR} 

{CR} {CR} (CRHCR) (CR) {CR}"; 

20 FOR X = 1 TO 20 

30 PRINT"*{CL}"; 

40 FOR Y = 1 TO 40 : NEXT Y : REM 

DELAY LOOP 
50 PRINT" {CD} {CL}"; 
60 NEXT X 
70 END 

Using the techniques we have described here, you 
can move characters in any direction on the screen. 
With a little creativity, you will achieve impressive 
results. □ 



Continued from page 41 

in the Trump spot on the screen. Trump is really 
the suit of that card. If the suit of that card is 
hearts, all hearts are Trump for that hand. Trump 
can beat any card except a higher Trump card. 

Each round consists of one play by each player. 
The player who leads sets the suit to be followed. 
The player who makes the second play must do one 
of the following things to win the round: 

1) Play a higher value card in the same suit 

2) Play a trump card 

If the second player can't do any of the above he 
should leash. To leash is to play a card that has no 
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point value. It is a good strategy to try to let the 
computer lead, so you can pick up points when it 
leashes. You might have a big point value card in 
that suit in your hand that you can play to win the 
round. 

Brisk is a totally random game; no two games 
will ever be the same! Brisk has a 75% win ratio. 
Do you think you can do better? 

For readers who are also programmers, here are 
some of the program's more interesting aspects: 

Line 6 Sets the screen colors 

Line 7 Sets the arrays up to hold the 

value of each card 
Turns on S.l.D. (Sound Inter- 
face Device) 

Sets all the values of DIMCS— 
to null values. This array is 
used to hold the cards that are 
played in each hand 
Deal the first seven cards of 
each hand 

Deal the cards during the hand; 
also check to see what cards 
have been played 
Randomize a value which rep- 
resents a card 

Checks to see if this card has 
been played; if so we go back 
and get another number 
Determine who won the last 
round and who should be dealt 
First 

Check to see if the last card in 
the playing deck has been dealt 
Determine end of the first hand 
and start of the second 
Read in the values of each 
playing card 

Enable the player to play a card 
The complete brain of the com- 
puter. From this subroutine all 
the plays the computer can 
make are determined 
Determine who won the last 
round played 

Give the points to whoever won 
the last round 

Set the values of who won the 
round so that on the next deal 
the player who won will be 
dealt first 
Those readers who don't care to type in the pro- 
gram may send $5.00 and a stamped, self-addressed 
envelope to Joseph Fusco, c/o Icicle, 1474 Hylan 
Blvd., Staten Island, NY 10305. A copy of the pro- 
gram will be sent promptly. Specify whether 
you require disk or tape! □ 

SEE PROGRAM LISTING ON PAGE 76 



Line 11 



Line 50 



Lines 100-143 



Lines 150-250 



Line 200 



Line 210 



Lines 230-240 



Line 247 

Lines 300-330 

Lines 1000-1030 

Lines 8000-8999 
Lines 10000-10999 



Lines 12000-12650 



Lines 20000-21110 



Lines 25000-30600 



IFR (FLIGHT 
SIMULATOR) 

Academy Software 

C-64 (disk), VIC 20 (cartridge); 

joystick 

"Pilot to bombardier! Pilot to 
bombardier!" Er, ah — no — this is 
a Cessna isn't it? 

IFR Flight Simulator is not a 
game. It is a simulation of flying 
a small plane under Instrument 
Flight Rules (IFR). That means 
the graphics consist of a full- 
screen instrument panel and the 
controls are much more involved 
than pushing a joystick. Actually, 
you could almost call this program 
a flying tutorial. All that is miss- 
ing is a detailed explanation of 
flying (which you could probably 
find at the local library). 

So, if you are a budding young 
pilot, or if the guidance coun- 
selor said you're really cut out to 
be a smuggler, let's fly. 

Once the program loads, you 
sec all the instruments used for 
IFR flight — artificial horizon, al- 
timeter, compass, tachometer, fuel 
gauges, glide slope localizer, and 
indicators for airspeed, vertical 
speed, turn and bank, flaps, and 
landing gear. You will also appre- 
ciate the LORAN navigation sys- 
tem which will show your coor- 
dinates. If you do not know what 
to make of all this, read the four- 
teen pages of single-spaced in- 
structions. Before you manage a 
landing (as opposed to a crash 
and burning), it will all make 
sense. 

The object of IFR Flight Simu- 
lator is to fly to each of the four 
airports shown on the main map. 
Five detailed maps will help you 
figure out approaches and routes. 
With nine different skill levels 
and elapsed time to worry about, 
you will put in many hours mas- 
tering this program. 

At higher skill levels, there will 
be much more wind to blow you 




offcourse. You will also have to 
land at a lower rate of descent 
and airspeed. More difficulty? 
Set the wind turbulence. In bum- 
py air. the instrument panel on 
your screen will really start to 
hop around. 

When you get proficient at 
standard takeoffs and landings, 
you can try the mountain pass. I 
made it through once, but I used 
so much fuel setting up that I 
crashed on the other side. Al- 
though you are not allowed to do 
acrobatics (the artificial horizon 
goes wacko), you can go into 
spins. Is that vertigo I feel? 

Since this is a real time (almost) 
simulation, you will have plenty 
of time to play with the controls 
which include a joystick and fif- 
teen different keys. Operating 
throttle, nose trim, landing gear. 




IFR's graphics include a realistic 

full- screen instrument panel. 
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flaps, brakes and steering (on the 
ground), and tuning the instru- 
ment landing system and automa- 
tic direction finder only gets hec- 
tic in the last moments of a land- 
ing approach. 

If you do not have time for the 
full flight between airports, you 
can use the program's editing ca- 
pabilities to put yourself any- 
where on the map, flying in any 
direction you want. Just be care- 
ful to give yourself an airspeed 
above the stall speed and an alti- 
tude above the local terrain. Gets 
messy otherwise. 

The plane has a slow, kind of 
mushy response to the controls. 
This is definitely not like chasing 
Klingons. If you have banked left 
from your course, you will have 
to bank right exactly the same 
amount to get back on a line par- 
allel with the original. 

IFR Flight Simulator is a won- 
derful learning device for would- 
be pilots. Even my pilot friends, 
for whom this was nothing new, 
enjoyed it. Not a game, however, 
this program will send you back 
to study the instructions several 
times. The documentation states 
that this is not a substitute for 
real flight training, but it can cer- 
tainly help you become confort- 
able with a lot of the basics. 

Academy Software, P.O. Box 
9403, San Rafael. CA 94912. 

— Richard Herring 

EARLY GAMES FOR 
YOUNG CHILDREN 

Counterpoint Software, Inc. 

C-64, VIC 20 

Disk, cassette; keyboard 

Moms, take note! Absolutely 
and positively the only thing 
wrong with this preschool program 
is its boring name! Even I, who 
usually cast a jaundiced eye at 
such glamorous-sounding games 
as Spider Attack and Galaxian 
Explosion, found myself sitting 
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down to review Early Games with 
less than enthusiasm. It sounded 
so blah! But within minutes I was 
delightfully surprised at this cle- 
ver and practical program that 
will be a real treat for the com- 
puter fledgling in your home. 

There are nine different educa- 
tional games, introduced by (at 
long last for the four year old 
who can't read!) a Picture Menu. 
The menu consists of a series of 
pictures representing each of the 
different games. All the child has 
to do is press any key and voila! 
he's ready to play. There is also 
an articulate pamphlet that ac- 
companies the program. 

Here's whats in store for your 
youngster. He'll match big bright 
numbers displayed on the monitor 
with the proper key on the com- 
puter. In another game he'll count 
the colorful blocks displayed on 
the screen and press the correct 
number. There is a game in 
which he will add, and one 
where he'll subtract numbers be- 
tween 1 and 9. He will also learn 
to identify shapes, determining 
which one of four shapes dis- 
played is different. Cute graphics. 
too! 

Having mastered all that, it's 
time for alphabet soup, where 
your child has several different 
ways to help him learn his 
ABC's. He'll match large colorful 
letters on the monitor with the 
identical letter on the keyboard. 
There's a game designed to help 
children learn the order of the 
letters in the alphabet. For exam- 
ple, the letter "A" is shown, the 
computer asks for the next letter, 
and so it continues through the 
entire alphabet. If he answers in- 
correctly, the computer displays 
the alphabet up to the letter in 
question. If the next response is 
also incorrect, the computer then 
flashes the correct answer. The 
added bonus is that as he learns 
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Addition and subtraction exercises. 

the alphabet he also learns the 
keyboard. True, he might not be 
typing 60 words a minute at the 
end of the game, but with prac- 
tice, who knows?!? 

There's surely one thing he'll 
be able to do and that's to type 
his own name. All mom or dad 
has to do is enter the child's 
name in the computer. The moni- 
tor will display the name in nice 
large letters, and the computer 
then asks the child to type in his 
name. This may be a piece of 
cake for Ann or Tom. but think 
of Geoffrey or Anastasia! Kids 
love this game, and why not? Do 
you know any red-blooded Amer- 
ican child who doesn't like to see 
his name in print? 

The grand finale of Early 
Games is my out-and-out favorite. 
It's called Picture Draw, another 
less than scintillating title. But 
that's exactly what the child does: 
draw pictures by pressing differ- 
ent keys. The position of the key 
on the keyboard determines which 
direction is drawn, i.e.. upper 
keys draw up. corner keys go dia- 
gonally, etc. By pressing the 
space bar the child can even 
change colors! It's a barrel of 



1234 



Which shape displayed is different? 
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fun, and I enjoyed it as much as 
my children did. Granted, it 
might not be as educationally en- 
riching as the number and letter 
programs, but it's bound to excite 
your child to the limitless plusses 
and uses of a computer. 

—Valerie B. Tamis 

THE GAME SHOW 

Advanced Ideas 
Commodore 64 
Disk 

Vte Game Show, a clone of the 
old TV series Password, brings 
the thrill of the popular show 
back into your living room. Even 
better, it offers an entertaining 
way to introduce your children to 
a wealth of factual information. 

Just to refresh your memory — 
those synapses get weak after so 
many hours in front of the tube — 
Password is a game for two teams 
of two players each. The modera- 
tor shows one player on each team 
a target word. That player then 
gives short clues to his partner. 
Teams alternate turns until one of 
the partners guesses the target 
word. 

That is a description of The 
Game Show too. only the parts 
of the moderator and the clue- 
giving partners arc played by an- 
imated characters on your com- 
puter screen. The two computer- 
ized players — Joe and May, the 
instructions call them — have real 
personality. At the beginning of 
the game the moderator intro- 
duces you to your onscreen part- 
ner who waves at you. From his 
raised podium, center stage, the 
moderator then turns and prompts 
each player as Joe and May take 
turns giving clues. Clues appear 
in cartoon bubbles above the 
players* heads while their lips 
move. If you guess a correct an- 
swer, your partner waves his arms 
with joy. 

When you run the program, it 



will ask for your name and the 
name of a second player if there 
is one. Then it asks if you want 
onscreen instructions. Read those 
and pick one of the subject areas 
for your game. Then the modera- 
tor comes on and, in those little 
bubbles above his head, gives you 
instructions on playing. Advanced 
Ideas has this instruction business 
down pat. 

So how is this "game" educa- 
tional? Basically, it is heavily into 
paired associate learning. In other 
words, if you want a kid to learn 
facts about a historical event or 
scientific phenomenon, you build 
these facts into the game as 
clues. The subject areas that 
come with Tlie Game Show are 
advanced vocabulary, animals, al- 
gebra, computer terms, sailing 
terms, constitution, nursery 
rhymes, biology, famous cities, 
and airplanes. There are also six 
categories of words that start with 
the same letter. Advanced Ideas 
promises to make additional sub- 
ject matter disks available (for 
$20 a crack). 

If you do not like these cate- 
gories, build you own. Tfie Game 
Show comes with an authoring 
system. Not to worry — this re- 
quires no programming. It is as 
easy to use as the instructions. 
You can format a blank disk, cre- 
ate new subjects, and change or 
delete old subjects. When you 
create a new subject you must en- 
ter the target words and as many 
clues as you choose for each one. 
Enter the clues in the order you 
want them given; the program 
will not scramble them. 

One aspect I really like is the 
program's ability to accept alter- 
nate target words. If you want 
both "krypton" and "Kr" to be 
correct answers in your chemistry 
game, type them both in. When 
you change an old subject area, 
you can delete any one or more 



target words, edit targets and 
clues, add new targets, add new 
clues to old targets, or list the 
whole shebang to the screen or 
printer. 

Easy as this authoring system is 
to use, 1 have to admit that it is a 
bear to write new subjects. I wish 
that Advanced Ideas would author 
a long list of subjects and sell 
one-page printed copies for a 
buck apiece. Then we users could 
order the ones we want and type 
them in. 




Employs paired associate learning. 
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The Game Show is one of those 

pieces of educational software 
that are deceiving because they're 
so much fun. By manipulating the 
difficulty of the subjects and 
clues, you can make this program 
appropriate for any age group. 
The presentation, although it is a 
single graphics screen is appeal- 
ing. And you can really team by 
pairing descriptive facts with an 
object or term. At S40, however, 
this is not as good a buy as Ad- 
vanced Ideas" other educational 
program. Wizard of Words, which 
includes five games on one disk. 

Advanced Ideas, 2250 Ninth 
Street, Suite 104. Berkeley, CA 
94710. 

— Richard Herring 

THE VOYAGE OF 
THE MAYFLOWER 

Cadmean Corporation 



C-64 

Disk; keyboard 

The Voyage of the Mayflower is 
a simulation, complete with 17th- 
century music, of the pilgrims' 
trans-Atlantic journey. Other than 
an 11 x 16 map and some dia- 
grams on the back of the box, all 
the documentation is in the pro- 
gram. When you start the game, 
you'll read two screens of histori- 
cal background. Then you will get 
to pick one of five skill levels or 
review a list of 100 terms relevant 
to the simulation and a bibliog- 
raphy of five books and two arti- 
cles on the history of the voyage. 
The word list is just that— a list. 
The words are not defined, or 
even grouped into classes (like, 
the types of sails). 

Each level of The Voyage of the 
Mayflower introduces new factors 
which the player must consider. 
Level 1 could have been left out 
of the game for all it's worth. 
Your ship appears on a map of 
the Atlantic with the two Ply- 
mouths clearly indicated. Type 
"go" to set sail. Your ship jumps 
a short distance westward. Type 
"go" again. Another jump. Even- 
tually you hit North America (or 
sail under North America) due 
west of where you started. No 
heading commands are accepted. 
At any point, type "land." The 
game ends, with no score, and re- 
turns you to the main menu. Here 
is a whole level of the game just 
to teach you how to type "go." 

Levels 2 through 5 are more 
entertaining. After the instructions 
at each level, you load the May- 
flower to its maximum tonage. In 
level 2 you just load food, but by 
level 5, you are juggling weights 
to get the best combination of 
fresh food, salted food, preserves, 
water, spirits, five kinds of ani- 
mals, three different feeds, stores 
and cargo. During the voyage, you 
can ration food and water or eat 
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the animals. After ten days or so 
without rations, the crew will be 
too weak to sail further. 

Once the Mayflower is loaded, 
you will get a status display. It 
shows your remaining supplies of 
food and drink, the ship's location 
in longitude and latitude, the di- 
rection and knots of the current 
and wind, your ship's heading and 
hull speed, and your days at sea 
and miles sailed. The twelve sail- 
ing commands you can type in are 
also given. During most of the 
game, you will see a map of the 
blue Atlantic bounded by the 
green borders of North America 
and Europe/Africa. 

Experiment with different head- 
ings to gain the maximum benefit 
of wind and current. And avoid 
the North Atlantic storms; the 
screen will flash as the sails of 



NEW 



C-64 



SAIL TO AMERICA 

A totally new computer experience 

• Parents Tell your kids Cadmean's The 
Voyage of the Mayflower has all the 
color, sound and excitement they love. 
Challenge the mighty Atlantic, defy its 
roaring storms and bring your passen- 
gers safely to the new world. There's 
never been an experience like it. Any- 
where. 

• Kids Tell your parents The Voyage of the 
Mayflower is a terrific learning adven- 
ture. Recreate the hazards and drama of 
the first Pilgrim voyage. Learn about sail- 
ing strategy, weather, navigation and 
history. The more you know the more fun 
it is. Every level is a unique experience 
whether you're 6 or 60. Unforgettable. 

• Families Pit your imagination against 
the world as the Pilgrims knew it. Share 
the exciting journey to a new life in a new 
land. Risk the danger and feel the joy. 
Learn together how the Mayflower sailed 
into history on the courage of those few 
who dared. 

All this and a FREE 11 x 16 Poster for only 
$29. 

School and dealer inquiries welcomed 
DISK ONLY 
ORDER NOW. FREE shipping for Master- 
Card and Visa orders. Call (313) 994-0845 
Day or Night. C.O.D., checks, money or- 
ders add $3,00 shipping. 

CADMEAN CORP., 
309 Koch, Ann Arbor, Ml 48103 

Reader Service No. 38 
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your ship are blown out. Success 
can only be guaranteed if you 
learn where the Sargasso Sea, 
Gulf Stream, and other major cur- 
rents are. 

You are encouraged in Vie Voy- 
age of the Mayflower to play with 
variables as much as you want. 
Only when you type "go" does 
the time pass and the food dimin- 
ish. When you finally type "land" 
you get a score based on how 
much food and drink you had left, 
how many days the crew was on 
rations and how many degrees you 
were from Plymouth. If you type 
"land" even when you are in the 
middle of the Atlantic, the game 
will end. giving you a huge nega- 
tive score for being so far from 
Plymouth. 

The goals of this educational 
game are good, but it is hard to 
say that they have been met. If 
you get caught up in the game, 
you will certainly be encouraged 
to learn about history and sailing, 
especially in the Atlantic. But a 
child beginning with Level l may 
become bored. There is no easy 
way to get complete instructions 
and the graphics quickly become 
uninspiring. The word list is nice, 
but what are we to do with it? In 
a classroom, maybe the teacher 
could structure some activities, 
but that is a lot to ask of a par- 
ent. While a child certainly could 
learn from manipulating the vari- 
ables in this game, I doubt that 
many kids will find it interesting 
enough to pursue on their own. 

Cadmean Corporation, 309 
Koch, Ann Arbor, MI 48I03. 

— Richard Herring 

CA.R.S. 

New Leaf, Inc. 
C-64, VIC 20 (+24K) 
Disk, Cassette 

Whether you own one car or a 
fleet. Car Analysis Reporting Sys- 
tem (CA.R.S.) will enable you to 



analyze your spending on each car 
for business or tax purposes, tell 
when tuneups and overhauls are 
due, or just keep the best records 
on your block. 

CA.R.S. is actually a set of 
programs. Backup lets you easily 
and quickly (in about eight min- 
utes) make a copy of your 
CA.R.S. disk. Don't break out 
your eyepatch and wooden leg just 
because this program is easy to 
copy. It also comes with an in- 
genious little device that plugs 
into either joystick port; without it 
the program won't run. 

All you aspiring software au- 
thors, pay attention. This pro- 
gram's manual is excellent. A use- 
ful table of contents is included. 
as well as a complete index. The 
first chapter is a tutorial; next 
comes a step-by-stcp description 
of each feature, in the same order 
as the program's menus. 

You enter expenditures in six 
categories — fuel, maintenance, 
tuneups. depreciation (or car pay- 
ments), taxes, and insurance. Re- 
fuelings must be entered in order. 
CA.R.S. will not let you create a 
new record with a lower odometer 
reading or an earlier date than the 
previous record. If you enter only 
the month and year of a refueling, 
the program will prevent you from 
entering any other data for that 
month. 

You can go back later and look 
at each entry. Find an error and 
you will have to delete the entry 
and type it in again. Be especially 
careful with depreciation, taxes, 
and insurance. CA.R.S. rolls all 
your entries into one category 
called Ownership. Enter one of 
these records incorrectly and 
you'll have to reenter them ail- 
that is. if you catch your error. 
Since you cannot review the indi- 
vidual entries you made as depre- 
ciation, taxes, and insurance, you 
have no way to double-check your 






data. 

When your data is all in. you 
can produce nineteen different bar 
graphs on the screen or printer. 
Fifteen of these are different ways 
of looking at fuel consumption 
and cost. Why would you want all 
these charts? Got me. The manual 
gives uses for only a few. Aver- 
ages are the best indicators of the 
need for a major overhaul, and 
rolling averages can show when 
your car needs a tuncup. Total 
cost per mile at each refueling is 
the chart you fleet owners will 
use to compare vehicles and de- 
termine when to replace them. 

C.A.R.S. has several shortcom- 
ings I have not mentioned yet. No 
record for one car can have over 
thirty-six entries. When you enter 
more, the oldest entries are sum- 
marized by the program. If you 
buy gas once a week, your record 
won't last out the year. A major 
flaw is that once you have loaded 
a record, you cannot, even by fol- 
lowing the directions, clear the 
data from memory. 

CA.R.S. comes with a separate 
depreciation program. You can 
run the value of any item through 
standard three, five, or seven year 
depreciation schedules and get 
values for each year. 

There are several features about 
CA.R.S. that I like. When you 
update a file, the program, rather 
than overwriting the old file, re- 
names it and saves it as a backup. 
The menu program lets you see 
every file on the disk in alphabet- 
ical order and run one by pressing 
a function key. During data entry, 
the program will automatically 
convert between liters and gallons. 
And most commands require only 
a single keystroke — you won't 
wear out the < RETURN > key. 

Still, I cannot justify this pro- 
gram. If I decided to keep de- 
tailed records, I would use a good 
database program. Then each item 



changed in a tuneup or repair 
could be listed individually. True, 
that would make it harder to get 
all those nifty graphs. 

CA.R.S. really seems like it 
was developed for business use. If 
you have just one vehicle, will 
you take the time to run the pro- 
gram every time you buy gas or a 
new set of wiper blades? Maybe 
you should use that time to tune 
up your car. If yours is already 
tuned, you can tune mine — it's 
perpetually in need of work! 

— Richard Herring 

MOUTHPIECE 

Event Horizon Software 

C-64 

Disk 

If you own a VIC or a 64 and a 
modem, you have probably enjoyed 
some successful telecomputing. 
Most likely you used the standard 
Commodore software, Term 64, 
or another "dumb" terminal pro- 
gram. This type of program al- 
lows you to send and receive in- 
formation, but does not permit 
you to tap the other capabilities of 
your computer. 



MOUTHPIECE 





, 
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"Smart" terminal programs, 
those which take advantage of 
your computer's capabilities, add 
a new dimension to telecomput- 
ing. The best of the "smart" pro- 
grams has arrived in a nifty pack- 
age called Mouthpiece (S39.95). 



WANT TO KILL A 
CONVERSATION 7 
JUST MENTION 
COLON AND 
RECTUM CANCER 



TELL ME 

WHEN 

YOU'RE 

FINISHED 




SEE 7 EVEN THOUGH 
IT'S ONE OF THE 
MOST TREATABLE , nnKVT 
KINDS OF . ID NI 

CANCER WANT 

TO TALK 
ABOUT 




WELL THEN, AT 
LEAST READ ABOUT IT .. 
ABOUT A SIMPLE 
TESTING PROCEDURE 
ABOUT HOW EARLY 
DETECTION AND TREATMENT 
CAN SAVE LIVES.. 




BUT WHY DIDN T 
WE TALK ABOUT 
THIS BEFORE 7 




LET'S TALK. For a free 
booklet on colon & reclum 
cancer, contact your local 
ACS office, 



American 
Cancer 
Society 



T© 



This space contributed as a public service. 
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Now your "modem moments" 
can be magically enhanced by a 
terminal program with many pow- 
erful and easily obtained features. 

After loading Mouthpiece you 
are greeted by a healthy menu 
clearly displaying thirteen lettered 
options, each quickly engaged by 
striking the Commodore logo key 
and the appropriate letter. Fea- 
tures include: color selection, du- 
plex toggle, macro definition, cur- 
sor select, data parameters, and 
audio parameters. A time-saving 
advantage built into the program 
permits menu commands to be 
called directly from terminal 
mode. 

The terminal screen presents an 
inverse bar running across the top 
of the screen. Called the "status 
bar." it is likened to a dashboard 
for the Mouthpiece driver. The 
bar displays the duplex setting, 
full or half, status of the review 
buffer, and a running indicator 
showing the exact number of 
bytes of memory available for 
capturing or downloading text or 
programs, about 30K. 

Additional functions are provid- 
ed for control of the Mouthpiece 
review or capture buffer. This 
feature is what permits you to 
download— bring text and pro- 
grams into your computer's mem- 
ory and then either save them to 
disk or print them. Once a pro- 
gram has been received, a simple 
command allows you to 
"KRUNCH" it into a program 
file. Normally, the job of then 
creating text files for programs 
you wish to upload becomes a 
chore. However, Mouthpiece lets 
you bring the program file into 
your 64's memory with a "Load 
Buffer" function. Then, by hitting 
a key designated "Create Text 
File." the text file is automatical- 
ly produced and ready to send via 
the "Send Buffer" command. 

With a 64. a modem, and 



Mouthpiece, your computer be- 
comes a smart terminal and you 
become a potent and capable user. 
The storehouse of knowledge, 
trivia, and news available through 
information utilities is yours to 
receive, save, send, and enjoy. 
Why make a smart machine dumb? 
Mouthpiece unlocks the potential 
of your computer and modem, 

Event Horizon Software, P.O. 
Box 1327. New York, NY 10028. 
Phone number is 212-535-0697; 
CompuServe user ID is 72436, 1456. 
— Kenneth C. Holvig 

THE INSTA-FAMILY 

Insta Software 
C-64 
Cartridge, disk 

Five programs make up the In- 
sta family of applications software, 
which rarely lives up to its name. 
Insta-Writer is the "papa," a car- 
tridge-based word processor with- 
out which you can't use In- 



sta-Mail or Insta-File. The best 
thing going for Writer, unfortun- 
ately, is that you don't have to 
wait for it to load from disk. It's 
a survivor from the Stone Age of 
C-64 software, a line-oriented pro- 
gram that displays a number on 
the left side of the screen for each 
line of text. A maximum of 62 
lines are permitted in RAM, the 
equivalent of a single typewritten 
page. 

After you've filled a page, it 
must be saved before proceeding 
to create page two. The second 
page is then saved as page two of 
the same document. When it's 
time to print, you have to load 
page one and print it, then load 
page two, and so on. This makes 
Insta-Writer extremely inefficient 
for people writing anything longer 
than a letter to the manufacturer 
to demand a refund. 

In all fairness, it's easy to use. 
Control-key combinations and the 




The Insta Family also includes filing, accounting, and graph programs. 
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function keys facilitate common 
text-editing operations in a logical 
manner. Cut and paste operations 
are executed by indicating the 
numbers of the lines to be manip- 
ulated, and a text buffer allows 
you to move or copy text from 
one page to another, even though 
you can only have one at a time 
in memory. But you can't embed 
control codes to coax underlining, 
boldface, and other capabilities of 
your printer; there's no Search 
and Replace; and line spacing is 
not adjustable. Give me a number 
two pencil and a napkin from 
Mulligan's Bar any day of the 
week! 

Insta-Mail is on disk, and loads 
automatically when you press 
"control-5" from Insta-Writer's 
main menu. Creating a mailing 
list is foolproof: just fill in the six 
blank lines that are prefabricated 
to hold last name, first name, ad- 
dress, city, state, and zip code. 
The only problem lies in the fact 
that each line can't hold more 
than 21 characters. If a street 
name happens to be longer, or an 
address calls for more than six 
lines, forget it. Most mailing list 
programs allow you to determine 
the number of lines and their 
length. This one deprives you of 
that freedom, trading it off for a 
program whose files don't de- 
mand any advance planning and 
are easy to create and edit. 

Any of the six lines of informa- 
tion may be inserted into an In- 
sta-Writer letter by typing in an 
up-arrow followed by the number 
of the desired line. This facilitates 
churning out personalized form 
letters. (You can tap the space 
bar to move back and forth be- 
tween the mailing list and a docu- 
ment currently in the word pro- 
cessor.) It's also possible to sort 
addresses alphabetically on any of 
the six lines, and to select speci- 
fic addresses for insertion rather 



than the entire list. Mailing labels 
can be printed in a one-up format. 

Insta-File is also on disk. It's 
simple to create and enter files 
and records with this program, 
but it also restricts the user in 
practical applications. You can't 
name a file — instead, each must 
be dedicated to a specific disk. 
This means that the file on your 
tax records and the one on your 
car records will be on different 
disks, even though they may both 
be small enough to fit on one. 
The result? You wind up using 
more disks than necessary. 

Each file is preconfigurcd with 
records containing 63 fields. (You 
don't have to use all 63 in a file.) 
The snare is that each is set up to 
hold a maximum of 25 characters, 
so you can't fit as much informa- 
tion into any specific field. 
(Fields in most databases hold up 
to 250 characters.) Searching a 
file for specific records is ineffi- 
ciently implemented and often 
slow. At least you can insert data 
from any fields into a document 
created on the word processor, 
accomplished in the same manner 
as with Insta-Mail. Reports may 
be generated, even drawing upon 
bold, underline, and other printer 
features. The main problem with 
Insta-File and Insta-Mail is their 
dependence on an inferior word 
processor, and this side of the 
"family" suffers from severe 
genetic defects. 

Insta-Calc is a distant cousin 
that offers one distinct advantage 
— it interfaces with Insta-Graph to 
convert spreadsheet data into 
charts and graphs that can be dis- 
played or printed. (Calc is a car 
tridge/disk package, and Graph 
comes on disk.) Even the infinite- 
ly superior Multiplan can't match 
this feat. Unfortunately, Insta- 
Calc's spreadsheet will accommo- 
date more than 30 vertical rows 
and 20 horizontal columns, mak- 



ing it impractical for large bud- 
gets. Only people desiring to plan 
their household budgets and small 
businesses with teeny, tiny busi- 
nesses will get their money's 
worth from this program. The 
functions are limited to exponen- 
tiation, summing, addition, sub- 
traction, multiplication, and divi- 
sion. Also, recalculation (after 
changing a number anywhere in 
the spreadsheet) is not automatic. 
You must manually request this 
operation, and perhaps jog around 
the block while waiting for it to 
be completed. Typical features 
such as copy, replicate, insert and 
delete rows and columns, and 
printing are standard, but unless 
your financial applications de- 
mand a miniscule workspace and 
you can't survive without 
Insta-Graph, keep your distance 
from this duo. 

The documentation for the en- 
tire series is uniformly deficient. 
Each program's features are de- 
scribed in detail, but in an unor- 
ganized manner and without true 
tutorials to gradually step you 
through the learning process. If 
you're already familiar with how 
each type of program works, you 
should be able to decipher the 
documentation. But, with so much 
quality software available else- 
where, why bother? 

Insta Software, 2158 Hathaway 
Street, Santa Ana, CA 92705. 

—Shay Addams 

SUPERBASE 64 

Precision Software, Inc. 

C-64 

Disk 

Designed for serious business 
users, SuperBase 64 is based on a 
dual-control system: beginners can 
stick to the function keys listed on 
a pair of main menus until confi- 
dent enough to enter commands 
directly into the command line at 
the top of the screen. (The latter 
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method saves time by allowing 
you to enter a series of commands 
al once.) Incorporating numerous 
advanced features seldom seen in 
a database manager for the C-64, 
the program provides capabilities 
that can gradually be tapped as 
you gain familiarity with the fun- 
damentals. 

Unlike many databases, this one 
doesn't ask you to specify the 
length of fields or number of rec- 
ords when setting up a new file — 
just type in the field names exact- 
ly as they should appear in the 
records. At the beginning of each 
field, press a key to indicate the 
type of field (text, key. numeric, 
result, constant, or date), then 
cursor horizontally until the de- 
sired length is reached and hit re- 
turn. Each field can accommodate 
up to 225 characters, and a record 
may fill as many as four screens. 
For result fields, whose contents 
are automatically calculated on the 
basis of numeric data in other 
fields, a formula is typed into the 
command line. The appropriate 
field names are employed in this 
process, as "[Price] - [Deposit]" 
for the field titled Balance. The 
border, background, and text color 
of each file can be adjusted, with 
a different scheme for each file if 
you choose. 

SuperBase furnishes a full com- 
plement of methods for conduct- 
ing searches. Records can be loca- 
ted by specific key fields, or by 
looking for matching data in one 
or more other fields. "Greater 
than" and "less than" symbols 
come in handy when retrieving 
records based on data in numeric 
fields, and the equivalent of BA- 
SIC'S AND and OR functions are 
available. Numeric and date fields 
may also be searched for matches 
within a specified range. All 
searches are initiated by pressing 
a function key to enter that mode. 
A sub-menu shows the options, 
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which include moving directly to 
the first, last, previous, or next 
records, as well as adding, delet- 
ing, or updating a record. The 
"Match" option, used more than 
any other, involves typing the 
search criteria into the selected 
fields on a blank form. The first 
matching record appears, and you 
press "m" to see the next one. 
Whenever a record is on screen, a 
line of letters runs across the top. 
These are abbreviations for the 
commands on the search sub- 
menu, which can be executed by 
pressing the corresponding letter. 

An unusual and expedient op- 
tion called "Find" displays a list 
of the key fields of all records 
matching the search criteria. The 
list is automatically saved, and 
you can use the "Output" option 
to display or print all or selected 
fields from the records in the list. 
Commands indicating which fields 
to output and how they should be 
formatted are typed in on the 
command line. 

The ability to convert database 
records into a sequential file that 
can be read by a word processor 
is not uncommon, and SuperBase 
includes an Export feature for this 
purpose — and an Import option 
that will read a sequential file 
created by another database pro- 
gram. This means you can trans- 
fer existing files from your old 
database without having to key 
them in one at a time. 

One reason business users 
should consider upgrading to this 
system is that SuperBase is far 
more than just a filing system- 
it's actually a database program- 
ming language that's completely 
accessible by the user. Some BA- 
SIC keywords have been replaced 
by others devised especially for 
manipulating and managing data- 
base records and files. The "Pro- 
gram" option makes it possible to 
implement this language in a pro- 



gram that automatically executes 
an entire sequence of operations 
you regularly carry out on your 
files. You can even create your 
own menus and redesignate the 
function keys' operations. A li- 
brary of programs can be saved 
on disk, then loaded individually 
into SuperBase when needed and 
executed by pressing a single key. 
One of the new keywords, "link." 
establishes a link between any two 
files in a database (each database 
holds up to 15 files), and an ex- 
ample listing shows how to con- 
struct a program that will coax 
records in one file to automatical- 
ly update those in a different file. 
This is the closest thing to dBase 
II currently available for the Com- 
modore 64. Naturally, a founda- 
tion in BASIC reduces the amount 
of time required to get the most 
out of the programming option. 

Still not satisfied'.' There's a fea- 
ture called "Calc," which per- 
forms mathematical operations or 
BASIC functions on information 
stored in numeric and result fields 
of the current record. This facili- 
tates the equivalent of doing 
"what-if " calculations on your 
database. "Batch" does the same 
thing for an entire file, or only 
those records selected from a key 
list predefined with the "Find" 
option. 

Error-trapping is excellent. Files 
are efficiently backed-up with a 
copy-disk option, and other stan- 
dard file functions can be execut- 
ed from the "Maintenance" sub- 
menu. The looseleaf, vinyl-bound 
manual includes a thorough tutor- 
ial, reference section, introduction 
to programming (with examples) 
and appendices. This wide range 
of features contributes to the long- 
term value of this program, and 
anyone planning on harnessing the 
C-64 in an office or business en- 
vironment can't go wrong with 
SuperBase. _ shay Addams 



FALCONIAN INVADERS 

LAZER CYCLES 

MAZE MAN 

ULTREX QUADRO MAZE 

TYLER'S DUNGEONS 

Creative Equipment 

C-64 

Cartridge; joystick 

Judging from the packaging of 
these games, as well as the 
games themselves (which are sold 
separately). Creative Equipment 
must be a new and relatively low- 
budget company. In that situation, 
a company should make up in 
imagination and daring what they 
lack in experience or finance. 
Looking at Creative Equipment's 
games, all sorts of scenarios 
spring to mind: enthusiastic 
young software designers gone 
cynical and lazy because of over- 
work and underpayment; imagina- 
tive programmers crushed under 
the heels of unimaginative man- 
agement; or. at the very least, a 
stubborn insistence on sticking to 
a game plan conceived at 1 a.m. 
on low blood sugar. I don't know 
what went on at Creative Equip- 
ment, but the results are deriva- 
tive and second-rate. 

Falconian Invaders is the most 
fun of the lot, given my prefer- 
ence for space games over maze 
games. It's a poor man's Buck 
Rogers— Planet of Zoom. The 
view is from behind a space ship. 
Using a joystick or trakball, the 
player blasts away at alien ships 
which appear on the horizon and 
lurch and sputter toward you. You 
win points and extra fuel for hits. 
A tracking option can be selected 
to help you aim. Falconian Inva- 
ders boasts graphics that a VCS 
designer would be ashamed ot, 
including a feeble attempt at a 
Buck Rogers-Wkc scrolling effect. 
If you like to aim and shoot, you 
might enjoy this one. 

For players who enjoyed Sur- 
round (or the cycle sequence in 



the Disney movie, Tron), Lazer 
Cycles may have some appeal. 
The game is the same. One or 
two players each control a cycle 
which leaves a solid wall in its 
wake. On a clear field, the object 
is to force your opponent, human 
or computer, to crash into a cycle 
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trail or the screen border. The 
player has the option of playing 
within a border or wraparound. 
In early rounds, play is rather 
slow; in later rounds action is so 
fast that it's almost impossible. 
Graphics are jerky throughout, 
but the music is excellent. 



Maze Man is a polyester Pac- 
Man. The main character is 
Clyde, who resembles a Pac-Man 
ghost tied up for the laundryman. 
Clyde must avoid squids while 
gobbling dots strewn in a maze. 
When Clyde devours the occasio- 
nal "power square," the squids 
freeze for a few moments; they 
can't harm Clyde, Clyde can't 
harm them ... he can merely gob- 
ble dots unimpeded. Atari's Pac- 
Man is now available for the 64. 
"Nuff said. 

Ultrex Quadro Maze presents 
the player with no fewer than 
four mazes onscreen at one time 
(a hack publicist's dream, that). 
When the player has eaten the 
dots of one simple maze, he con- 
tinues on to the next. When those 
four are completed, four more 
appear onscreen. And so on. 
Goblins make an occasional ap- 
pearance to complicate gameplay, 
but not nearly enough. As you 
can imagine, the mazes are quite 
simple. Young children just might 
enjoy this one. In many ways (ex- 
cept play value) it's a hoot. 

Tyler's Dungeons is as hard to 
dislike as it is hard to enjoy. Your 
character is sort of an upright ant 
with a golf club or a squid or 
something. You propel this whoo- 
zis through a series of simple 
mazes in search of treasure. 
While using an occasional eleva- 
tor which takes you hither and 
yon, you avoid a Lurk (deadly to 
the touch), Cross Traps (rooms 
that will collapse on you), and 
Snakepits. The mazes here are 
carefully rendered; they have 
plenty of texture and color, but 
gameplay is oh-so-very simple. 
Dare 1 recommend this one to the 
very young children of America? 
No way. I could lose my knee- 
caps. 

Creative Equipment, 6864 W. 
Flagler St., Miami, FL 33144. 

— Dan Hallassey 
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KIDWRITER 

Spinnaker Software 

Disk, keyboard 

Kidwriter is an electronic story- 
book generator and word proces- 
sor tutorial. That's computerese 
for: Kidwriter is an excellent pro- 
gram for children of ages 6 to 10 
that allows them to create their 
own storybook pages and save 
them. 

The program is all menu-driv- 
en. The first menu the child 
meets offers the options of making 
a new picture, retrieving an old 
one, seeing a catalog of old pic- 
tures, or quitting the program. If 
the child chooses to make a new 
picture, the second menu appears. 

Menu two is the major work 
station of the program. First, the 
child is given the option of select- 
ing one of ten possible back- 
grounds for the picture to be crea- 
ted. Each possible choice is dis- 
played one at a time with a tap of 
the S key. Once the background is 
chosen, the child selects the ob- 
jects and Figures for the fore- 
ground. With each tap of the F 
key, one of the 99 possible figures 
is displayed. These include men 
and women— front and profile — 
aliens, vehicles cosmic and earth- 
bound, animals, celestial objects 
real and fanciful, geometric 
forms, tools, buldings, and num- 
bers and letters (for title pages). 

When an object is chosen (with 
the P key), menu three is dis- 
played. This allows the option of 
changing the color and size of the 
object as well as moving it around 
the screen with the cursor control 
keys. When the child is satisfied, 
the D key propels him or her 
back to menu two for more selec- 
tion of figures or objects. When 
all the objects are chosen (there is 
a limit of eight or so per frame) 
and positioned, it's time to write 
the story. 
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Approximately two thirds of the 
screen comprises the picture. The 
lower third allows room for the 
child's text. Kidwriter's word pro- 
cessor has the fundamentals only. 
With the cursor controls and de- 
lete key, a portion of the text can 
be corrected, deleted, or typed 
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over; the clear/home key brings 
the cursor to the First textual 
space, and the clear/home key 
with the shift key erases the 
whole shebang. 

A sense of disappointment in 
software seems to be common 
nowadays. Very rarely do software 
packages deliver on the extrava- 
gant claims made for them in the 
past year. Objections are being 
made that educational/leisure soft- 
ware provides little more than has 
traditionally been offered in 
books, playing cards, boardgames 
and so forth. Seen in that light, 
Kidwriter is merely an electronic 
box of crayons that requires none 
of the motor skills encouraged by 
hand drawing and only a fraction 



of the craftsmanship and subse- 
quent pride of accomplishment. 
Further, the program contains but 
99 figures and ten backgrounds; 
that barely scratches the surface of 
most children's visual imagina- 
tions. 

All true, and at the same time 
irrelevant. 

Some children take to a compu- 
ter like a duck to water; they be- 
come obsessed with it. Others 
may need some cajoling and still 
will never enjoy it. Many proba- 
bly fall somewhere in between. 
Alert parents will recognize the 
developmental strengths and weak- 
nesses of their child's natural in- 
clination. They may find that the 
computer-obsessed child requires, 
at least initially, an electronic 
means to create visually or write 
precisely. They may find Kidwri- 
ter to be the ideal way of luring a 
suspicious child to the computer 
or, for those kids with a creative 
bent, an all-new medium for their 
genius. Kidwriter could be used to 
create elaborate flashcards or — 
youth of America, forgive me— 
spot quizzes. 

Patience will be required to run 
through the figure menu; there is 
no way to select directly from the 
99 choices. And simple as the 
word processor is, the parent will 
want to help the young child 
through its paces at first. In fact, 
the parents may want to hover a 
while longer. Kidwriter is an ex- 
cellent program to stimulate inter- 
action between parent, child and 
computer. 

Spinnaker Software, 215 First 
Street, Cambridge, MA 02142. 

— Tim Moriartv 
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An Investigation of Sequential Files 




by Dale Rupert 

our hand is shaking as you reach for the 
file folder on the desk. The room is dark, 
but you can clearly read the bold letters 
on the front: CONFIDENTIAL. 
You open the file. Inside you read: 

You are to create a computer file (either tape or 
disk) by entering and running the following program 
on your Commodore computer. This file will have 
the name 3X501. It will contain information which 
has been encrypted according to directive E78- 
402SQ. The encryption code number for this file is 
3 1 , and of course that number is required for de- 
coding the file. This information as well as the en- 
cryption code number must not be revealed. This 
folder must be destroyed after the folowing program 
has been entered into your computer. 



1 REM 
X501 

5 INPUT 
10 IF A 
20 N=8: 
G0T040 
30 N=l: 
READ 
PRIN 
IF D 
GOTO 
DATA 
DATA 
DAT 



>> CREATE CLASSIFIED FILE 3 



40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 



"TAPE (T) OR DISK (D)";A$ 
$ = "T" THEN 30 
OPEN N,N,N,"@0:3X501 ,S,W": 

OPEN N,N,N, "3X501" 

D$ 
T#N,D$ 

$="***"THEN CLOSE N:END 
40 

118,100, 107,98, 110, 108 
100,63,115,110,63,115 
A 103,100,63,118,110,113 
DATA 107,99,63,110,101,63 
DATA 98,110,108,111,116,115 
DATA 100,113,63, 101 , 104,107 
DATA 100,114,64,*** 
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Once you have run the above program, you have 
created a sequential file with the filename 
"3X501". Now the question is, "what can 1 do 
with it?" or perhaps, "what is a file, anyway?" 

Let's start with the second question. A file (either 
tape or disk) is a block of data. The data may con- 
sist of many items or records. When you SAVE 
your programs, you create a program file. This file 
is essentially an image on tape of the way your pro- 
gram appears on the screen. (We'll assume we're 
using the cassette recorder for now, although most 
of what we discuss will also be true of disks.) 
There is other information telling the computer vari- 
ous things about the storage locations of your pro- 
gram. Also there is a title, or filename, attached to 
the file. 

When you LOAD a particular program, you spe- 
cify its filename. The computer reads the names of 
the files as it searches along the tape. When it finds 
the file with the name you specified, the computer 
puts that file into memory. 

Sequential tiles are similar to program files with 
which you arc already familiar. Instead of using 
LOAD and SAVE to read and write to them, how- 
ever, you use INPUTS (or GET#) and PRINT*. 
The "#" after these statements makes them seem 
somewhat mysterious. We will sec that looks are 
deceiving. These statements are really no more diffi- 
cult to comprehend and use (after a little practice) 
than more familiar ones such as INPUT, GET, and 
PRINT. 

The files we will deal with are called sequential 
files because of the way that data is stored in them 
and the way in which the data must be read from 
them. All tape files are sequential. Each data block 
or record is written right after the preceding one. 
The recording head in a cassette recorder certuink 
can't jump around to non-sequential places on the 
tape. 

Similarly, all data must be read in a '"single-file" 
fashion. The computer can't read the fifth record 
until it has passed the fourth record. Consequently, 
to access the fiftieth data item in the file, the com- 
puter must be instructed to read and count the forty- 
nine records in front of it. The sequential files are 
to be contrasted with random-access files, which ex- 
ist only on disks. We will work only with serial-ac- 
cess or sequential files. 

GETTING STARTED 

Let's see what it takes to create a very simple 
file. This program stores the word "COMPUTER" 
in a file called "FIRSTFILE": 
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10 OPEN 1,1,1 ."FIRSTFILE" 
20 PRINT#1, "COMPUTER" 
30 CLOSE 1 

If you are using a disk instead of tape, change line 
10 to this: 

10 OPEN 8,8, 8, "FIRSTFILE, S,W" 

Also change the l's in line 20 and 30 to 8's. 

Position the tape to the place where the file is to 
be stored and reset the tape counter to 0. When you 
type RUN, with the tape version the computer re- 
sponds "Press Record and Play on Tape." With the 
disk version, the drive should spin for a moment. In 
either case, the computer writes the filename 
"FIRSTFILE" along with some other identifiers. 
and then it writes "COMPUTER." That's all there 
is to it! 

This certainly looks like a lot of work to write a 
single word to a file. The bulk of the program is 
overhead. Lines 10 and 30 are necessary to tell the 
computer about the file itself. Line 20 does the ac- 
tual writing to the file. Aside from the #1 (or #8), 
writing to the file looks just like writing to the 
screen: PRINT "COMPUTER". Conceptually they 
are identical. 

The OPEN statement tells the computer about the 
file we want to create. Just as there may be several 
open files on a desktop, we may open more than 
one file at a time in the computer. We identify each 
file by number, the file-number. The file-number is 
the first value in the OPEN statement, We opened 
file number 1 for tape and number X for disk. We 
could use any number between I and 255 although 
numbers below 127 are recommended. Once we as- 
sign a file-number to a file, any access to that file is 
made by specifying its number. 

Since the computer deals with disks differently 
from tapes, we must identify the type of device on 
which our file will reside. The second number after 
the OPEN statement is the device-number. The cas- 
sette must have a device number of I . and the disk 
must have a device number of X. (Other devices 
such as the keyboard, video display, and printer also 
have specified device numbers.) 

The third number after the OPEN is the second- 
ary address. This number tells the computer whether 
we are reading or writing data to or from the tape 
(when the device number is I. A "1" here means 
that we are writing to tape). A '"()" would mean 
that we were reading from tape. A "2" could be 

Continued on page 95 
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9. To obtain the benefits of two drive operation with 
these packages, a second single drive as device 9 
would be required. 

The Duplicate command is used for making fast 
copies of an entire disk. This is actually only part 
of the capabilities available to users of a dual disk 
drive. Consider the Copy command, which is sup- 
ported by the Commodore DOS. With a single 
drive, the results are of limited use. The copy ends 
up on the same disk as the original file. About the 
only useful feature of this command is for concat- 
enation of files. Used in conjunction with a dual 
drive, the copy command takes on entirely new 
meanings. 

Copy allows the transfer of tiles from one disk to 
another. In this case the destination disk must al- 
ready have been formatted. Files from one disk can 
be copied to another disk which may already be 
partially full. For example, 

PRINT#15,"C1 :NEW FILE=0:OLD FILE" 

copies OLD FILE from drive as NEW FILE on 
drive 1. All the files from one disk can be easily 
transferred to a second disk by 

PRINT#15,"C1=0*' 

This will copy an entire disk on a file by file basis. 
The process is considerably slower than the Dupli- 
cate command, but is faster and more convenient 
than the repetitive LOADs and SAVEs required with 
single or dual disk drives. The actual time for an 
entire disk depends on the number of files and the 
size of the individual files. As an example, the 
Commodore 64 Disk Bonus Pack takes about nine 
and one half minutes to COPY. 

The biggest advantage of the DOS file mainten- 
ance commands is that no software has to be loaded 
in the computer to perform these tasks. Virtually all 
our single drive copy programs were obsoleted by 
the dual drive. Disk file maintenance can be easily 
performed from within any applications program 
capable of issuing DOS commands. Some of the 
timing tests for this review were actually done from 
within Easy Script while this review was being 
written. 

Actual speed of operation on the serial bus was 
not improved by the MSD SD-2. The time required 
for a straight LOAD or SAVE operation was actual- 
ly about eight per cent longer than with the 1541. 



This was not entirely unexpected. Data transfer over 
the serial bus is controlled by the computer and not 
the disk drive. The apparent slowdown of the MSD 
SD-2 was a deliberate engineering decision by MSD 
to ensure timing compatibility with all peripherals 
available for the serial bus. This is a wise decision 
on their part in view of previous compatibility pro- 
blems experienced by Commodore and others. 

There will be some significant speed improvement 
for applications involving random files and other 
multiple file access. The disk internal operations 
are significantly faster than for the 1541, as evi- 
denced by the 17-second format time. We could not 
obtain exact figures on this speed improvement, but 
we do estimate as much as 20% for some opera- 
tions. More significant results were obtained with 
the MSD CIE interface card. This provides an 
IEEE-488 port on the Commodore 64 for use with 
the MSD drive as well as other CBM peripherals. 

The SD-2 did seem to be more sensitive to disk 
errors than the 1541; however, this may have just 
been a sample-to-sample variation. Sectors which 
came up bad on the MSD were marginal but read- 
able with our 1541. Interestingly enough, all of 
these problems occurred with disks prepared on 
outisde drives. We experienced absolutely no pro- 
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btems while exchanging disks with any of our in- 
house drives. 

The drive's sensitivity was most noticeable with 
the Duplicate command. The proper operation of 
this function requires a perfect disk. Any errors or 
marginal sectors will abort the operation. A brief 
analysis reveals the reason. At 1 minute and 54 
seconds for a complete backup, less 17 seconds to 
format the disk, there is only 97 seconds to per- 
form the actual copy. At a drive speed of 300 
revolutions per minute and 35 tracks to copy, there 
is not enough time for extensive error checking and 
reentries. In comparison, normal operations, for 
both the MSD SD-2 and the 1541 will make over 
thirty tries at a sector before reporting an error. 

THE MANUAL 

The manual supplied with the SD-2 is a model of 
clarity. All the standard DOS commands are clearly 
explained with examples for each. The explanation 
regarding the difference between the BLOCK-READ 
and BLOCK-WRITE commands and the USER1 and 
USER2 commands was particularly well done. 
However, the manual does manage to leave out 
some interesting points: for example, the DOS se- 
quential file append capability. This command was 
left out of the 1541 manual as well. The syntax is: 

OPEN3,8,3,"r J: FILE ONE, A" 

This would have the effect of appending all data 
sent to logical tile number 3 to the end of sequen- 
tial file FILE ONE. We tried this out with both the 




SD-2 and the 1541 and it does work. 

Unfortunately the manual lacks disk layout dia- 
grams. These drawings, included in the 1541 
manual, contain useful information regarding the 
disk track and sector layout and the contents of the 
disk directory. 

The SD-2 does not come with a demonstration 
disk. We felt this to be a significant shortcoming, 
particularly for users who elect the SD-2 as their 
first disk drive. Some kind of test/demo disk with 
sample programs and disk utilities, such as the 
DOS wedge, should have been provided. 

RELIABILITY 

In view of past experience with other hardware, 
this is a touchy topic indeed. We must report that 
the first sample of the SD-2 failed on the first day. 
Occurrences of this sort arc associated with every 
manufactured product. Reliability engineers describe 
the early failures of a product as "infant mortality!' 
This simply means that the most likely time for a 
factory defect to show up is very early in the pro- 
duct's useful life. All reputable manufacturers make 
allowance for these possibilities by offering some 
sort of product warranty. 

In the case of the SD-2, MSD offers a six month 
warranty, twice the norm for this industry. In addi- 
tion, MSD will turn around any returned units 
within 48 hours of receipt. We did receive a re- 
placement unit posthaste and have been able to give 
the drive a thorough workout. A demonstration ses- 
sion at one user group meeting produced over 40 
copies of Comal in an hour and a half. We estimate 
that the intensive use during the one-month test 
period prior to the writing of this report was ap- 
proximately a year's throughput for a 1541 disk 
drive. 

CONCLUSION 

The Micro Systems Development SD-2 Super 
Disk Drive is a sturdy, well-designed product. It 
makes available to users of the Commodore 64 and 
the VIC 20 all the file handling capabilities long 
taken for granted by users of the PET and CBM 
line of computers. Serious users of the Commodore 
64 will easily be able to justify the $695 price tag. 
The time savings alone, when backing up disk files, 
will rapidly pay for the machine. The drive is 
suitable for duplication of distribution software by 
program developers, user groups, etc. The inclusion 
of both the VIC serial bus and IEEE-488 bus make 
the SD-2 a welcome addition for Commodore users 
and a suitable replacement for the CBM 4040. □ 
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EDUCATIONAL 
SOFTWARE 



A GUIDE FOR PARENTS 

PART V 



By Richard Herring 



What approach should educational soft- 
ware take to its subject? For better or 
worse, this is a problem which 
] plagues not only software designers, 
but all educators. It is the classic conflict between 
process and product; means and ends. In the 
schools, emphasis is placed on the product of learn- 
ing—on whether the student can recite certain facts. 
Learning in the home tends to be more process- 
oriented— allowing the child to think through a 
problem and discover how to solve it. 

These two approaches to learning are evident in 
educational software. Most educational software fits 
(sometimes uncomfortably) into one of four categor- 
ies depending on how it presents the learning chal- 
lenge: drill and practice, tutorial, simulation, and 
problem solving. The first two. drill and practice 
and tutorial, rely on teaching facts. These types of 
programs fit neatly into school curricula: the learn- 
ing that takes place is practical and measurable. 
Simulation and problem solving programs, on the 
other hand, offer the child an environment to ex- 
plore and promote the development of insight. 

Drill and practice programs are fine (and very 
common) for subjects best-learned through memori- 
zation. Offering immediate reinforcement and reme- 
diation, many programs are able to present ques- 
tions randomly so that the child can't just memorize 
a series of answers. Some software can even indi- 
vidualize the presentation of questions based on the 
child's progress and previous scores. Drill and prac- 
tice programs are available for almost all grades 
and school subjects. 



One subject for which the drill and practice ap- 
proach works well is reading speed. Speed Reader 
II, from Davidson & Associates, is a flexible exam- 
ple. Along with the program disk, a separate data 
disk contains thirty-five reading selections; addi- 
tional data disks are available for any grade level. 
You can start with warm-up exercises, practice eye 
movement, and take timed reading tests. Other exer- 
cises help your peripheral vision and eye span as 
well as train special skills like reading columns. So 
that you do not emphasize speed to the detriment of 
understanding, comprehension tests are also given. 
If you want to enter your own text. Speed Reader II 
will analyse it and tell you what grade level it's on. 

Another approach to reading and word recogni- 
tion skills is taken in Didatech's Fay: Vie Word 
Hunter. In this word search game, the heroine. Fay. 
searches underwater for words hidden in rows of 
letters and shoots those words with her laser. Of the 
3000 words on the disk, those that are frequently 
misspelled will appear most often. This program 
uses a more arcadelike approach than a static or 
printed word-search puzzle. 

The trophy for most creative use of the compu- 
ter's capabilities in the drill and practice category 
may have to go to Chauerbee, a spelling program 
from Tronix. Spelling programs have used many in- 
novative approaches to avoid showing the word on 
screen and allowing the child to copy it. Chatterbee 
talks. It actually says each word, then uses it in a 
sentence. When the child types the word correctly, 
he gets verbal reinforcement and a smile from the 
Chatterbee. If the child guesses wrong three times, 
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the program spells the word out loud. The child can 
start at any of twelve levels, but the program will 
automatically adjust to the correct level for the 
child based on his performance. 

Chatterbee violates one rule for slow learners: do 
not announce the child's failure. If adults are within 
earshot, the child may hesitate to try, knowing that 
answers will be announced by the computer. For 
children who require tutoring for specific language 
learning disabilities. SLED Software offers a series 
of spelling programs designed by a language thera- 
pist. In addition to drill and practice on spelling 
rules, SLED's programs use exercises and tutorials. 

Drill and practice programs are fine at school 
where kids are a captive audience. But in the home 
environment, those programs often require parental 
interest and involvement, or a highly motivated 
child. At home, there are just so many diversions 
which aren't available at school. Drill and practice 
is basically learning through repetition. (Notice I 
did not mention any math programs; a ton of them 
exist.) As they begin to include detailed explana- 
tions for right and wrong answers, drill and practice 
programs start to look like tutorials. Programs 
which prepare high school students for the Scho- 
lastic Aptitude Test are great examples. 

One reasonably priced program ($30) is SAT 
Review from Moses Engineering. This package of 
five cassettes includes a practice exam, skill training 
in English and math, and a final exam. SAT pro- 
grams are heavily drill and practice oriented, yet 
programs like SAT Review begin to tutor you on the 
facts needed to do well on the college boards. 

Another approach to SAT study is Harcourt Brace 
Jovanovich's Computer Preparation/SAT which 
comes with 540 drill questions, 1000 vocabulary 
'Hash cards' and four full length tests. The tests are 
actually taken in a workbook, with answers typed 
on the computer. This approach for the tests is just 
about as boring as using a $9.95 SAT review 
manual from the local bookstore. The drill ques- 
tions, however, are really tutorial in nature. In the 
synonym section, a word will be displayed not only 
with a list of possible synonyms, but also with hints 
on how to approach the problem and finally, a 
definition. 

True tutorials first give the child basic informa- 
tion on the subject and then follow up with ques- 
tions (often multiple choice) on the material. When 
the child gives an incorrect answer, the program 
will usually return to the lesson to review or further 
explain the fact. Subjects like history, geography, 
and sciences are suitable for tutorial presentation. 
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Early Music Games is a program designed to 
tutor your child on piano keyboard skills. While 
correct finger positioning cannot be learned on a 
computer keyboard, the screen displays of a piano 
keyboard and bass and treble clefs will familiarize 
your child with important concepts. The top row of 
keys is used to simulate a keyboard. As your child 
"types" notes, they are shown on the screen 
keyboard. (Since half notes— the black keys— arc 
not used, this can serve only as an introduction.) In 
bass or treble clef mode, the tune your child plays 
appears as notes on a staff. Once the child begins 
to grasp all this, he can test his understanding by 
having the computer display a series of notes from 
which he must identify the unlabeled one. 




Speed Reader 
II uses the drill 
and practice ap- 
proach. Program 
includes warm- 
up exercises, 
eye movement 
practice, and 
timed reading 
tests. 

READER SER- 
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Some tutorials are even aimed at teaching you 
how to use computer software. Logo Locomotion is 
a series of games which help children learn turtle 
graphics. (It must be used with Commodore Logo.) 
Different grids are shown on screen to help the 
child get a feel for the angles and distances through 
which the Logo turtle moves. Feedback is given for 
the commands the child types so that mistakes can 
be corrected quickly. When the child develops an 
intuitive feel for distances and relative and absolute 
headings, he can continue to play the games without 
the grids to guide him. Since the Logo Locomotion 
programs can be listed, real mastery may come 
from understanding and modifying the programs 
themselves. 

Tutorials are a good approach when you want 
your child to learn about a subject generally. He 
will pick up whatever facts seem interesting and 
probably ignore the rest, but he will put it all in a 
new contextual framework of how volcanoes erupt 




Delta Drawing brings turtle graphics to toddlers. 
READER SERVICE NO. 6 

or whatever. Examine how the program will treat 
the child. As additional correct responses are given, 
drill-and-practice programs and tutorials should 
become gradually more difficult. And, if you give a 
wrong answer, the program should back up a bit or 
maintain its current level of difficulty, but not 
penalize you by forcing you to start with the easiest 
problems. 

After drill and practice and tutorials, we move in- 
to simulations and problem solving programs. Both 
generally recognize many correct answers to any 
question. David Seuss, president of Spinnaker Soft- 
ware, points out that educational software may be 
oriented toward a specific subject, as are many 
spelling and arithmetic programs, or that it may 
provide an environment to explore, like simulation 
and adventure programs. He asks which software 
you think your child is most likely to want to use 
again and again. 

Typically best for teaching about systems, there 
are numerous simulations that allow you to rule an 
empire and force you to make hard economic deci- 
sions. By providing a feeling for the subject, simu- 
lations let your child develop values and understand 
complex dynamic relationships. In a simulation, the 
child is often asked a "what if question. Based on 
any of a wide variety of answers, the computer will 
tell your child what difference his response made. 
Eventually, your child will begin to understand the 
dynamic relationship among the variables in the 
simulation; he will learn how parts of systems 
interrelate. 

Sandra Curtis, director of research for Joyce 
Hakansson Associates, describes how she tries to 
develop software that will lead to insight, the 'ah-ha 
experience' as she calls it. Little children are like 



little scientists, learning through trial and error. Dr. 
Curtis gives the example of a toddler dropping a 
spoon again and again at mealtime. This is a great 
discovery; release the spoon and it falls. Regardless 
how much it seems that this repetitious behavior is 
just the child trying to annoy the parent, it is really 
an 'ah-ha experience.' 

Space Rescue is a simulation hidden in a game. 
Benji and you (hopefully you're not as accident- 
prone as Chevy Chase) pilot a spaceship, The Star 
Woof, in search of scientists who have been cap- 
tured by aliens. Before the journey, you must coor- 
dinate your supplies of fuel and provisions and set 
your ship's course. Statistics in this program were 
obtained from NASA; fuel and resources relate di- 
rectly to distance traveled. You will learn the layout 
of our solar system and have a few arcade episodes 
with attacking alien ships and meteor storms. The 
strength of this program is its gentle introduction to 
just a few of the intricacies of space flight. 

Simulations often use this type of hypothetical en- 
vironment. The hypothetical consequences of our 
actions are the only way to experience many situa- 
tions; most of us will never pilot a spaceship. Or, 
simulations may be used where the activity is just 
too dangerous. We have all read press accounts of 
military simulations which are a learning process 
for those involved, but which have consequences 
too terrible to imagine in the real world. Sometimes 
learning through role playing is the only way. 

Historical background may play a part in a 
simulation. Spinnaker's program Trains is set in the 
Old West and based on the economy of the times. 
Chugging between refineries, oil wells, and coal 
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Dragon's Keep teaches kids reading and map skills. 
READER SERVICE NO. 8 

depots, your train will help you learn about the law 
of supply and demand. As you transport lumber to 
the mill or ore to the factory with your coal burner, 
you will have to plan ahead. What are the most 
lucrative goods to transport? Can you make one 
more run without running out of coal for the 
locomotive? To advance to the higher rounds, you 
will have to get better and better at juggling 
variables, at exploring the limits of the system. 

Simulations like this offer children an exciting 
medium for developing and honing their analytical 
thinking skills. Critics sometimes point out that 
simulations oversimplify reality, that they make 
children think superficially about a complex world. 
But isn't that the natural process of learning: to 
understand pieces of the whole; incomplete at first, 
but becoming more and more detailed? 

Problem-solving programs are the last general 
type of educational software. Adventures are good 
examples. The child must explore a fictional setting, 
manipulate objects, deal with people, and solve 
puzzles. When designed well, problem-solving pro- 
grams present the child with very real learning 
situations. They treat the child much like the real 
world does — in complex ways rather than one issue 
at a time. Simulations and problem-solving pro- 
grams, however, should allow the child to give any 
reasonable answer. Be wary of programs which ac- 
cept a very limited range of inputs since they will 
frustrate a child who cannot guess how to make the 
computer accept a perfectly reasonable response. 

A simple adventure game is Dragons Keep from 
Sierra On-Line. With a magic dragon keeping six- 
teen animals prisoner, your child must find and 
release each one. Twenty-six different locations can 
be explored. The program comes with a map and a 
sticker for each animal. As your child explores the 



world on screen, he can track his progress on the 
map and mark where he rescued each animal. De- 
signed for younger children. Dragons Keep requires 
no typing skills. Each movement option is shown 
on the bottom of the screen; hit the space bar to 
highlight the one you want and then hit return. This 
delightful game will let your child explore a mini- 
world while learning map skills and practicing 
reading. 

The Factory by Sunburst Communications is 
another example of problem-solving software. Using 
lots of graphics and animation, this program will 
challenge your child to produce certain shapes on a 
geometric assembly line. First, your child gets to 
see how the assembling machines work. Next, he 
will set up a series of machines to make a product, 
probably building as he goes, with only a vague 
idea what the finished shape will look like. In the 
end, he will have to design an assembly line that 
can produce a shape determined by the program. 
Like programming, Tlie Factory stresses how impor- 
tant sequence is in accomplishing goals. It also 
teaches inductive reasoning; the child must learn to 
think backward from the goal through the steps 
necessary to accomplish it. 

The best problem solving software around is ac- 
tually a computer language— Logo (or Pilot). Using 
turtle graphics, a child can not only explore the 
world where the turtle lives, but can also create his 
own miniature landscape. This is more than simple 
drawing; it is logic and geometry and motion. 
There is little the turtle can do that the child cannot 
do by pacing out a precisely described path. In fact, 
that is one of the best ways to understand turtle 
graphics. 

Continued on page 98 




Simulations like Trains develop analytical skills. 
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PROGRAM LISTINGS 



n n the following pages arc listed several 
programs thai wc hope you'll want 10 



I m W iP uncn ' n your Commodore computer. But 
L_^^f_J please read the following introduction 
first; there arc a few things you'll need to know. 

Certain computer commands are displayed on the 
monitor by a variet) of odd-looking characters. To 
get your computer tit display these commands ra- 
ther than actually perform them, you'll need to en- 
ter the quote mode. Hold down the SHIFT key and 
press the "2" key; a set of quote marks will ap- 
pear. This tells the computer that the characters 
that follow are to he displayed, not performed. To 
exit the quote mode, type another set of quote 
marks, or hit the RETURN key. You'll also enter 
the quote mode when you INserT spaces or charac- 
ters onto a line. 

In Ahoyf's program listings, you'll frequently 
find letters and' or numbers surrounded by brackets 
{ }. That's because, for the purposes of clear re- 
production, we at Alloy! use a dais) wheel primer 
incapable of reproducing command symbols. For 
example, when you're in the quote mode and 
press the SHIFT and CI.R/HOME keys at the same 
time, the screen (or a dot-matrix printer) will indi- 



cate this command with a heart { Da ] , Because a 
daisy wheel cannot duplicate (his symbol, it substi- 
tutes an alternate code between brackets. In the 
case of (he SHIFT C1.R HOME symbol, our prin- 
ter substitutes {SC}- 

Another special case is SHIFT and COMMO- 
DORE characters. We represent these by underlin- 
ing or overlining, respectively: any character un- 
derlined in the program listing should be punched 
in as a SHIFTed character ( J = SHIFT J), any 
character overhned should he punched in as a 
COMMODORE character I I - COMMODORE J). 

An alternate way of entering commands and 
other graphics symbols and characters is to use 
their corresponding character strings. The 
CLR' HOME command, for example, is entered hy 
typing CHR$(147). While this requires a few extra 
strokes, it facilitates editing your program or read- 
ing the printed lisiing. For a complete list ol'CHRS 
codes, consult the appendix at the back of your 
Commodore user manual. 

Below is a list oi the command abbreviations 
you'll find in our program listings, the commands 
they stand for, how to enter them, and how they'll 
appear on the screen or on a dot mains printout. 



When 






You 


When 




You See 


ll Meaas 
Screen Clear 


"\ (HI T\]M 

SHIFT CLR/HOME 


Will See 

H 


You See 

(YL) 


It Means 


(SC] 


Yellow 


(HM) 


Hi line 


CUt/HOME 


B 


{OR} 


Orange 


(CU) 


Cursor t'p 


SHIFT' CR.SR . 


n 


{ BR 1 


Brown 


[CD] 


Cursor Down 


" CRSR . 


B 


(LR) 


Light Red 


(CD 


Cursor i.efl 


SHIFT ' CRSR • 


11 


[G1J 


Grey 1 


(CRl 


Cursor Right 


• CRSR • 


O 


(G2) 


Grey 2 


(SS) 


Shirit'H Spare 


SHIFT spaee 


■ 


(LG) 


Light Green 


(IN) 


tiwrt 


INST 


II 


(LB) 


Light Blue 


(RV) 


Reverse On 


CNTRL 9 


H 


(G3) 


(Jrey 3 


(RO) 


Reverse Off 


CNTRL 


■ 


(Fl } 


Function 1 


(BK) 


Black 


CNTRL 1 


■ 


!F2} 


Function 2 


{Will 


White 


CNTRI. 2 


n 


[F3J 


Function 3 


(RD] 


Red 


CNTRL 3 





(F4) 


Function 4 


(CY) 


Cyan 


CNTRI. 4 


m 


1F5) 


Function 5 


(pin 


Purple 


CNTRI. 5 


i 


(F6) 


Function << 


(GN) 


Green 


CNTRI. A 


□ 


(F7) 


Function 7 


(BL) 


Blue 


CNTRL 7 


Q 


(F8) 


Function H 



You Type 

CNTRL S 

COMMODORE 1 

COMMODORE 2 

COMMODORE 3 

COMMODORE 4 

COMMODORE S 

COMMODORE 6 

< OM.MODORF. 7 

COMMODORE 8 

F I 

F 2 

F3 

F4 

F 5 

F6 

F 7 

F H 



You 

W ill See 



Sii 



E3 



■ ■ 
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BUG REPELLENT CORRECTION 

Thesu are updated versions of Bug Repellent. See 
the note on page 4 before typing any programs! 



VIC 20 

bUG REPELLENT ' 

By Michael Kleinert and David Barron 

The program listed below will allow you to quickly debug any 
Ahoy! program you type in on your VIC 20. Follow directions for * 
cassette or disk, 

For cassette: type in and save the Bug Repellent program, then , 
type RUN 63000[RETURN1SYS 828JRETURN]. If you typed the 
program properly, it will generate a set of two-letter line axles 
thai will match those listed below the program on this page. (If 
you didn't type the program properly, of course, no line codes 
will be generated. You't! have to debug the Bug Repellent itself « 
the hard way,) 

Once you've got a working Bug Repellent, type in the program , 
you wish to check. Save it and type the RUN and SYS com- 
mands listed above once again, then compare the line codes 
generated to those listed in the magazine. If you spot a discrep- • 
ancy, a typing error exists in that line. Important: \ou must use 
exactly the same spacing as the program in the magazine. Due to • 
memory limitations on the VIC. (lie VIC Bug Repellent will 
register an error if your spacing varies from what's printed. 

You may type SYS 828 as many times as you wish, but if you 
use the cassette for anything, type RUN 63000 to restore the 
Repellent. « 

When your program has been disinfected you may delete all 
lines from 63000 on. (Be sure Hie program you type doesn't in- 
clude lines above 63000!) 

For disk: type in the Bug Repellent, save it. and type 
RUN:NE\V[RETURN]. (See above regarding testing the Bug 
Repellent on itself.) Type in the program you wish to check, then 
SYS 828. This will generate a set of two-letter line codes that you 
should compare to those listed in the magazine. 

To pause the line codes listing, press SHIFT. To permanently 
pause it, press SHIFT LOCK. To continue, release SHIFT LOCK. 

To send the list to the printer type OPEN 4.4:CMD 4:SYS 
828[RETTJRN], When the cursor comes back, type 
PRINT#4:CLOSE 4[RETURN], 

•63000 FOR X = 828 TO 1023 :READ Y 

:P0KE X,Y:NEXT:END 
.63001 DATA 169, 0, 133, 63, 133, 

64, 165, A3, 133, 251 
•63002 DATA 165, 44, 133, 252, 160 

, 0, 132, 254, 32, 228 
.63003 DATA 3, 234, 177, 251, 208, 

3, 76, 208, 3, 230 
.63004 DATA 251, 208, 2, 230, 252, 

169, 244, 160, 3, 32 
•63005 DATA 30, 203, 160, 0, 177, 

251, 170, 230, 251, 208 
.63006 DATA 2, 230, 252, 177, 251, 
32, 205, 221, 169, 58 

68 AHOY! 



63007 DATA 32, 210, 255, 169, 0, 
133, 253, 230, 254, 32 

63008 DATA 228, 3, 234, 165, 253, 
160, 0, 170, 177, 251 

63009 DATA 201, 32, 240, 6, 138, 
113, 251, 69, 254, 170 

63010 DATA 138, 133, 253, 177, 25 
1, 208, 226, 165, 253, 41 

63011 DATA 240, 74, 74, 74, 74, 2 
4, 105, 65, 32, 210 

63012 DATA 255, 165, 253, 41, 15, 
24, 105, 65, 32, 210 

63013 DATA 255, 169, 13, 32, 210, 
255, 173, 141, 2, 41 

63014 DATA 1, 208, 249, 230, 63, 
208, 2, 230, 64, 230 

63015 DATA 251, 208, 2, 230, 252, 
76, 74, 3, 169, 236 

63016 DATA 160, 3, 32, 30, 203, 1 
66, 63, 165, 64, 32 

63017 DATA 205, 221, 169, 13, 32, 
210, 255, 96, 230, 251 

63018 DATA 208, 2, 230, 252, 96, 
0, 76, 73, 78, 69 

63019 DATA 83, 58, 32, 0, 76, 73, 
78, 69, 32, 35 

63020 DATA 32, 0, 0, 0, 0, 
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FOR VIC 20 BUG REPELLENT 






LINE # 


63000 :MH 


LINE 


§ 


63011 


,NN 


LINE # 


63001 :BD 


LINE 


# 


63012 


IG 


LINE # 


63002 :F0 


LINE 


# 


63013 


EN 


LINE # 


63003 :ND 


LINE 


# 


63014 


GJ 


LINE # 


63004 :DJ 


LINE 


# 


63015 


IK 


LINE # 


63005: LP 


LINE 


# 


63016 


HG 


LINE # 


63006: JB 


LINE 


§ 


63017 


CK 


LINE # 


63007: JF 


LINE 


# 


63018 


JF 


LINE # 


63008 :KA 


LINE 


# 


63019 


OH 


LINE # 


63009: HP 


LINE 


# 


63020 


LH 


LINE # 


63010 :KJ 


LINES 
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BUG REPELLENT 

By Michael Kleinert and David Barron 



The program listed below will allow you to quickly debug any 
Ahoy! program you type in on your C-64. 



Type in and save the Bug Repellent program. Type NEW, (hen 
type in the Ahoy! program you wish to check. When that's done, 
save your program (don't run it!) and type SYS 49152 RETURN. 
You'll be asked if you want the line value codes displayed on the 
screen or dumped to the printer. If you select screen, it will appear 
there. 

The table will move quickly, too quickly for most mortals to 
follow. To pause the listing depress and hold the SHIFT key. To 
pause for an extended period, depress SHIFT LOCK. As long as it 
is locked, the display will remain frozen. 

Compare the table your machine generates to the table in Ahoy! 
that follows the program you're entering: If you spot a difference, 
an error exists in that line. Jot down the numbers of lines where con- 
tradictions occur. LIST each line, spot the errors, and correct them. 

5000 FOR X = 49 152 TO 49488 :READ 
Y:P0KE X,Y:NEXT:END 

5001 DATA 32, 161, 192, 165, 43, 
133, 251, 165, 44, 133 

5002 DATA 252, 160, 0, 132, 254, 
32, 37, 193, 234, 177 

5003 DATA 251, 208, 3, 76, 138, 1 
92, 230, 251, 208, 2 

5004 DATA 230, 252, 76, 43, 192, 
76, 73, 78, 69, 32 

5005 DATA 35, 32, 0, 169, 35, 160 
, 192, 32, 30, 171 

5006 DATA 160, 0, 177, 251, 170, 
230, 251, 208, 2, 230 

5007 DATA 252, 177, 251, 32, 205, 
189, 169, 58, 32, 210 

5008 DATA 255, 169, 0, 133, 253, 
230, 254, 32, 37, 193 

5009 DATA 234, 165, 253, 160, 0, 
76, 13, 193, 133, 253 

5010 DATA 177, 251, 208, 237, 165 
, 253, 41, 240, 74, 74 

5011 DATA 74, 74, 24, 105, 65, 32 
, 210, 255, 165, 253 

5012 DATA 41, 15, 24, 105, 65, 32 
, 210, 255, 169, 13 

5013 DATA 32, 220, 192 
208, 2, 230, 64, 230 

5014 DATA 251, 208, 2, 230 
76, 11, 192, 169, 153 

5015 DATA 160, 192, 32 
166, 63, 165, 64, 76 

5016 DATA 231, 192, 96 
8, 69, 83, 58, 32 

5017 DATA 0, 169, 247, 
32, 30, 171, 169, 3 

5018 DATA 133, 254, 32 
201, 83, 240, 6, 201 

5019 DATA 80, 208, 245, 230, 254, 
32, 210, 255, 169, 4 



230, 63 
252 



30 
76. 



171, 
73, 7 



160, 192, 
228, 255, 



•5020 DATA 166, 254, 160, 255, 32, 

186, 255, 169, 0, 133 
•5021 DATA 63, 133, 64, 133, 2, 32 

, 189, 255, 32, 192 
•5022 DATA 255, 166, 254, 32, 201, 

255, 76, 73, 193, 96 
•5023 DATA 32, 210, 255, 173, 141, 

2, 41, 1, 208, 249 
•5024 DATA 96, 32, 205, 189, 169, 

13, 32, 210, 255, 32 
•5025 DATA 204, 255, 169, 4, 76, 1 

95, 255, 147, 83, 67 
•5026 DATA 82, 69, 69, 78, 32, 79, 

82, 32, 80, 82 
•5027 DATA 73, 78, 84, 69, 82, 32, 

63, 32, 0, 76 
•5028 DATA 44, 193, 234, 177, 251, 

201, 32, 240, 6, 138 
•5029 DATA 113, 251, 69, 254, 170, 

138, 76, 88, 192, 
•5030 DATA 0, 0, 0, 230, 251, 208, 

2, 230, 252, 96 
•5031 DATA 170, 177, 251, 201, 34, 

208, 6, 165, 2, 73 
•5032 DATA 255, 133, 2, 165, 2, 20 

8, 218, 177, 251, 201 
•5033 DATA 32, 208, 212, 198, 254, 

76, 29, 193, 0, 169 
•5034 DATA 13, 76, 210, 255, 0, 0, 





BUG REPELLENT LINE CODES 
FOR C-64 BUG REPELLENT 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 5000 :GJ 

# 5001 :DL 

# 5002 :DB 

# 5003: OF 

# 5004 :KN 

# 5005 :CA 

# 5006 :CE 

# 5007 :JE 

# 5008 :CL 

# 5009 :NB 

# 5010:MB 

# 5011 :EP 

# 5012 :GH 

# 5013: AN 

# 5014 :NG 
§ 5015 :BF 

# 5016 :EP 

# 5017:PJ 



LINE 


# 


5018 


:FK 


LINE 


# 


5019 


:FL 


LINE 


# 


5020 


,CL 


LINE 


# 


5021 


:GC 


LINE 


# 


5022 


:NN 


LINE 


# 


5023 


•NH 


LINE 


# 


5024 


:IM 


LINE 


# 


5025 


KG 


LINE 


# 


5026 


DC 


LINE 


# 


5027 


'ML 


LINE 


# 


5028 


GN 


LINE 


# 


5029 


JK 


LINE 


# 


5030 


NA 


LINE 


$ 


5031 


DM 


LINE 


# 


5032 


JA 


LINE 


# 


5033 


FM 


LINE 


# 


5034' 


PA 


LINES 


> : 


35 
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WHAT'S MY 
JOB? 



FROM PAGE 23 



IMPORTANT 

Before typing in an Ahoy! program, refer to the 
first two pages of the program listings section. 



•10 P0KE53280.1 

CHRS(14) 
•20 PRINT"{SC}{ 

";TAB(12) ;"{CD 
JOB? (R0}" 
•30 PRINTSPC(9) 

GRAM FOR THE C 
•40 PRIXTSPC(13 

EHLING" 
•50 FORI=OT0300 
•60 DIMA$(2000) 

) :XEXTI 

• 70 PRINT" (SC) { 
(CD) DO YOU WA 
S ENTERED?" 

• 75 GETKS:IFK$= 
•80 IFKSO"Y"TH 
•85 PRINTSPC(3) 

CD] (CD) HIT [*] 
S READY." 

• 90 GETKS:IFKS= 
•95 IFK$="*"THE 

• 100 PRINT" {SC} 
{RV} WHAT'S MY 

•110 PRINT" (CD) 
OF A PERSON AN 

• 120 PRINT" GUE 
K THEY DO." 

• 122 PRIXT"{CD) 

QUESTION IS N 

• 124 PRINT" MOR 
IME ANSWER NO. 

•126 PRINTSPC(7 
[L] TO LIST AL 

• 130 PRINT"{CD} 
ADY?" 

•135 GETASrIFAS 

• 140 IFAS = "L"0R 

• 150 IFA$="N"0R 

• 160 K = l 

• 170 G0SUB390 

• 180 IFLEN(A$(K 

70 AHOY! 



1:P0KE53281 ,0:PRINT 

CD) {CD} {CD} {CD} {CD} 
) {G3}{RV} WHAT'S MY 

; "{CD} (CD} (LB) A PRO 

-64" 

) ;"{CD} {CD} BY B.W.B 

0:NEXTI 
:F0RI=0T03:READA$(I 

CD} (CD} (CD} {CD} {CD} 
NT ALL PREVIOUS JOB 

""THEN 7 5 
EN 100 

;"{CD){CD} {CD}{CD}{ 
WHEN 'JOBS' TAPE I 

""THEN90 
NG0SUB2000 
";TAB(12);"{CD) {G3} 
JOB? {RO}" 
(CD) {LG} YOU THINK 
D I'LL TRY TO" 
SS WHAT KIND OF WOR 

IF THE ANSWER TO A 
OT YES" 
E THAN 50% OF THE T 

) ;"{CD) {CD} {0R}!IIT 

L JOBS." 

(CD) f LG) ARE YOU RE 

= " "THEN 135 

A$="L"THEN600 

AS="N"THEN700 



))=0THEN700 



190 IFLEFT$(A$( 
200 PRINT" (RV} ( 
HT$(A$(K),LEN(A 
210 INPUTA$ 
220 A$=LEFT$(A$ 
225 IFA$<>"Y"TH 
230 PRINT"{SC) { 
} {CD} {CD} {CD} {C 
RY ANOTHER PERS 
234 GETK$:IFK$= 
236 IFK$="Y"0RK 
238 GOT0700 
240 PRINT "{CD} 
HAT IS YOUR JOB 
242 PRINT"(CD){ 
SJLETTERS AND{S 
244 INPUTV$ 
246 IFLEN(V$)>1 
{CD}{LB} ERROR! 
LONG! ! ":G0T0242 
250 PRINT"{CD} { 
A YES OR NO QU 



K),2)="/Q"THEN170 
CD)ARE YOU A ";RIG 
$(K))-2); 

,1) 

EN240 

CD) {CD} (CD) (CD) (CD 

D}{LG} {RV} T 

ON [Y/N]? " 

""THEN234 

$="Y"THEN100 

{LG}I GIVE UP! ! W 

?" 

OR) [LIMIT(SS)19(S 

SJSPACES] (YL) {CD}" 

9THENPRINTSPC(4) ;" 
{SS) J0B(SS)T00(SS) 

LG) PLEASE GIVE ME 
ESTION TO TELL A " 



260 PRINTV$;" 
K) ,LEN(A$(K)) 
265 PRINT"{0R 
TTERS AND{SS) 
270 INPUT" {CD 
275 IFLEN(X$) 
(CD) (LB)ERROR 
(SS)LONG! ! (CD 
280 PRINT" {LG 
SWER WOULD BE 
290 INPUT"{YL 
300 A$=LEFT$( 
<>"N"THEN280 
310 IFA$="Y"T 
320 IFAS="N"T 
330 Z1=VAL(A$ 
):A$(Z1)=A$(K 
370 A$(K)="/Q 
l)+"/"+B$+STR 
380 GOTO 100 
390 REM SUB 
STIONS 

400 Q$=A$(K) 
410 F0RZ=3T0L 
415 IFMID$(Q$ 
ID$(Q$,Z,1); : 
420 INPUTC$ 
430 C$=LEFT$( 
440 IFC$0"Y" 
450 G$="/"+C$ 



FROM A 
-2);"?( 
} [LIMI 
SPACES] 
)(YL}"; 
>38THEN 
! (SS)QU 
}":G0TO 
)FOR A 
?" 
}";AS 

AS,1 ) :I 

HENB$=" 
HENB$=" 
(0)):A$ 
):A$(Z1 

"+X$+'7 
$(Z1)+" 



";RIGHT$(AS( 

CD)" 

T(SS]38(SS)LE 
it 

X $ 

PRINTSPC(3) ;" 

ESTION{SS}TOO 

265 

";V$;" THE AN 



FA$<>"Y"ANDA$ 

N" 

Y" 

(0)=STR$(Zl+2 

+ 1)="/A"+'V$ 

"+A$+STR$(Z1+ 

/" 



ROUTINE TO PRINT QUE 



EN(Q$) 

,Z,1)<>' 

NEXTZ 

C$,1) 
ANDC$<>' 



/"THENPRINTM 



N"Ti!EN410 



.455 F0RX = 3T0LEN(Q$)-l BUG REPELLENT LINE CODES 

•460 IFMID$(Q$,X,2)=G$THEN480 FOR WHATS MY JOBS 

.470 NEXTX ! 

•480 F0RY=X+1T0LEN(Q$) LINE # 10:CL 

.490 IFMID$(Q$,Y,1)= I 7"THEN510 LINE # 20:AH 

•500 NEXTY LINE § 30:AI 

.510 K=VAL(MID$(Q$,X+2 ,Y-X-2)) LINE # 40:DG 

•520 RETURN LINE tt 50:DB 

•530 DATA"4","/QD0 YOU WORK MOSTLY LINE # 60:E0 

0UTD00RS/Y2/N3'\'7ATRUCK{SS)DRIV LINE # 70:GJ 

ER",'7ATEACHER" LINE tt 75:DL 

•600 PRINT"{CD} {CD} (LG}J0BS I ALRE LINE tt 80:CE 

ADY KNOW ARE: {CD} (YL}" LINE # 85:IF 

.605 X=0 LINE # 90:E0 

■610 F0RI=]T0VAL(A$(0)) LINE # 95:BA 

•620 IFLEFT$(A$(I),2)O"/A"THEN660 LINE tt 100:DK 

•622 IFX=1THENPRINTTAB(20); LINE # 110:MB 

'624 IFX=OTHENPRINT LINE # 120: AH 

'630 FORZ=3T0LEN(A$(I)) LINE # 122:AH 

•640 IFMID$(A$(I),Z,1)<>'7"THENPRI LINE tt 124:EK 

NTMID$(A$(T) ,Z, 1) ; :NEXTZ LINE # 126:DK 

.650 X=X+1:IFX>1THENX=0 LINE tt 130:BK 

•660 NEXTI LINE # 135:H0 

•662 PRINT:PRINTSPC(8);"{CD} {CD}HI LINE # 140:DK 

T ANY KEY TO CONTINUE." LINE tt 150:ED 

■664 GETK$:IFK$=""THEN664 LINE tt 160:DD 

'670 G0T0100 LINE tt 170: CI 

•700 PRINT"{SC) {CD){CD} {CD} {CD} {CD LINE tt 180:PP 

}{CD} DO YOU WANT TO SAVE THE JO LINE tt 190:MB 

BS T KNOW?" LINE tt 200: HN 

'710 GETK$: TFK$ = ""THEN7 1 LTNE tt 210:PH 

■720 IFK$O"Y"THEN800 LINE tt 220:PO 

'725 PRINTSPC(3);"{CD} {CD} {CD} {CD} LINE tt 225:EP 

{CDJ{CD}HTT [*] WHEN 'JOBS' TAPE LINE # 230:GI 

IS READY." LINE # 234:GI 

■ 730 GETK$:IFK$ = ' M, THEN730 LINE tt 236: IN 

■735 IFK$ = "*"THENGOSUBIOOO LINE tt 238:CD 

800 PRINT"{SC} {CD} {CD} {CD} [CD) (CD LINE # 240:10 

} {CD} [CD} {CD} {CD} {CD} {LG}"SPC(16) LINE it 242-.JO 

;"GOODBYE!":FORT-0T01000:NEXTI LINE # 244:AG 

•810 PRINT"[SC}":END LINE # 246:NP 

1000 OPENl , 1,2, "JOBS A$" LINE tt 250:DB 

'1005 R$ = CHR$(13) LINE tt 260:LL 

1010 F0RI=0T0VAL(A$(0)):PRINT#1,A LINE tt 265:PL 

$(I)R$:NEXTI LINE # 270:EN 

1015 CL0SE1 :RETURN LINE tt 275:AJ 

2000 OPENl , 1 ,0, "JOBS A$" LINE tt 280: EG 

2005 F0RI=0T02000 LINE # 2 90: PA 

2010 IFI = VAL(AS(0) )THEN2025 LINE tt 300:GF 

2015 INPUT/fl ,A$(I) LINE # 310:KM 

2020 NEXTI LINE tt 320 : JG 

2025 CLOSE 1 : RETURN LINE tt 330:MG 

I l LINE tt 3 70 :MC 



LINE 


# 


380 :CF 


LINE 


# 


390 :AB 


LINE 


tt 


400 :DD 


LINE 


# 


410:PJ 


LINE 


tt 


415:KD 


LINE 


tt 


420 :0J 


LINE 


tt 


430: AC 


LINE 


tt 


440 :FC 


LINE 


tt 


450:KF 


LINE 


# 


455: MM 


LINE 


# 


460 :FJ 


LINE 


tt 


470:NK 


LINE 


tt 


480: OH 


LINE 


tt 


490: KF 


LINE 


tt 


500 :NN 


LINE 


tt 


5 1 : E L 


LINE 


§ 


520 :IM 


LINE 


tt 


530 :AP 


LINE 


tt 


600 :ND 


LINE 


tt 


605 :DN 


LINE 


tt 


610:HF 


LINE 


tt 


620: JG 


LINE 


tt 


622: JC 


LINE 


tt 


624:AH 


LINE 


tt 


630: JH 


LINE 


it 


640 :PM 


LINE 


tt 


6 50: BL 


LINE 


tt 


660 :MN 


LINE 


tt 


662:PP 


LINE 


tt 


664 :GL 


LINE 


tt 


670:CF 


LINE 


tt 


700: OP 


LINE 


tt 


710 :GL 


LINE 


tt 


7 20:CL 


LINE 


tt 


725:IF 


LINE 


tt 


7 30 :GN 


LINE 


tt 


735:BH 


LINE 


tt 


800: CM 


LINE 


tt 


8 1 : C I 


LINE 


tt 


1000 :DK 


LINE 


tt 


1005 : KN 


LINE 


tt 


1 1 : BG 


LINE 


tt 


1015: JG 


LINE 


tt 


2000: CI 


LINE 


tt 


200 5: DK 


LINE 


tt 


2010; OL 


LINE 


# 


2015:0J 


LINE 


tt 


2020 :MN 


LINE 


tt 


2025: JG 


LINES 


: 


99 
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MATH 
DEFENDER 



FROM PAGE 47 



IMPORTANT 

Before typing in an Ahoy! program, refer to the 
first two pages of the program listings section. 



VIC 20 VERSION 



1 REM MATH DEFENDER 

5 POKE36879 , 238 : G0SUB2000 :G0SUB21 

CO 

10 X=RND(-TI):D1MT%(4) ,X%(3) ,Y%(3 

),A%(3),0$(3),P%(3),0P$(4),0X$(4) 

13 S=3 687 6:POKES+2, 15 : F0RN=1T03 : P 
%(N)=1:NEXT 

14 D$="{HM} {CD] (CD) [ CD ) ( CD } ( CD } { C 
D] [CD] {CD} (CD] [CD) {CD} (CD) {CD} {CD 
}{CDJ {CD} {CD} (CD]":SP$=" 



15 0$(1) = IM, :0$ 
R){CR] {CR}{CR] 
{CR} (CR) {CR} {C 
17 0XS(1)="+": 
X":0XS(4)="/" 
30 G0T0102 

32 PRINTLEFT$( 
K}"X%(Z%)"{CL} 
}"0P$(Z%) :RETU 

33 Z%=RND(1)*3 
(Z%))0$(Z%)" 
l:GOSUB32:RETU 

,34 IFFLTHENRET 
■35 IFAS="F"THE 

037 

-36 M%=M%+1+(M% 
•37 PRINTD$SP$D 

": RETURN 
,38 F0RP=1T02E3 
■39 PRINTLEFT$( 

RETURN 

,40 REM GEN PRO 
-41 Z=INT(RND(1 

N41 
.42 X=INT(RND(1 

10) :0NZG0SUB43 
'43 A=X+Y:RETUR 
,44 D=X+Y:X=D;A 
■46 A=X*Y:RETUR 
'47 IFY=0THENY= 



(2)="{CR) (CR}(CR} [C 
(CR}":0$(3)=0$(2)+" 
R] (CR) (CR) [CR] (CR}" 
0X$(2)="-":0X$(3)=" 



D$,P%(Z%))0$(Z%)"{B 
"Y%(Z%)"{CL}{CL){CL 
RN 

+1 :PRINTLEFT$(DS,P% 
":P%(Z%)=P%(Z%)+ 
RN 
URN 
NM%=M%-1-(M%<2) :G0T 

>2) 

$0$(M%)" [RV](BK] A 

:NEXT:RETURN 
D$,P%(M%))0$(M%)Q$: 

BLEM 

)*4)+l :IFT%(Z)=0THE 

)*10) :Y=INT(RND(1)* 

,44,46,47:RETURN 

N 

=X-Y:RETURN 

N 

INT(RND(1)*10) :G0T0 



47 

48 D=X*Y:X=D:A=X/Y:RETURN 

50 REM GET ANSWER 

51 FL=1:AN$=AN$+A$ 

52 PRINTD$" (CD) "SP$D$0$ (M%) " [CD] 
{BK)"AN$:IFLEN(AN$)>2THENG0SUB4 20 

53 D ETURN 

60 PRINTD$" {CD} { CD ) { CD } "SP$D$" { CD 
} {CD} (CD) { RD ] SCORE :"SC; : RETURN 

70 IFVAL(AN$)=A%(M%)THENGOSUB400: 
RETURN 

71 G0SUB420:RETURN 
100 REM I NIT 

102 G0SUB10O0:GOSUB15O0:FORN=lTO3 

:G0SUB40:0PS(N)=0X$(Z) 

104 X%(N)=X: Y%(N)=Y:A%(N)=A:NEXT: 

M%=l:GOSUB34 

1_0_5__PRT_NTDS" { CU } { RD } CLLLLLLLLLLbL 

I >•-•• - • | £," :F0RN = 1T03:Z%=N:G0SUB3 2 

:NEXT 

106 F0RP=1T0SK:GETA$:IFA$=""THEN1 
20 

107 IFA$<"0"0RA$>"9"THEN109 

108 G0SUB51 :G0T0120 

109 IFA$="F"0RA$="J"THENG0SUB34:G 
0T0120 

110 IFA$=CHR$(13)ANDLEN(AN$)>0THE 
NGOSUB70 

120 NEXT:GOSUB33:IFP%(Z%)=18THEN5 

2 

122 GOTO 106 

400 REM RIGHT ANS 

402 PRINTDS"{CD}"SP$:Q$="{RV] {RD} 
*****" :GOSUB39 

403 FORP=240T0150STEP-4:POKES+l ,P 
:NEXT:P0KES+1 ,0:Q$=" ":G0SUB3 
9 

40 4 P%(M%)=1:G0SUB41 : X%(M%)=X : Y%( 

M%)=Y:A%(M%)=A:Z%=M%:G0SUB32:AN$= 

"":FL=0: 

405 0P$(M%)=0X$(Z) :SC=SC+10:G0SUB 

60:RETURN 

420 REM WRONG 

42 2 PRINTD$"{CD}"SP$:F0RP=1T050:P 

OKES-1, 130: NEXT: POKES- 1,0 

4 24 AN$="":FL=0:SC=SC-5-5*(5C<5) : 

GOSUB60: RETURN 

500 REM LOSE 

502 FORP=240T0130STEP-.5:POKES,P: 

NEXT: POKES, 

504 PRINT" [HM] {CD} YOUR BASE HAS 
BEEN OVERRUN! ! !":G0SUB38 

505 PRINT"(HM)"SP$SP$SP$"{HM} [CD] 
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PLAY AGAIN? (Y/N)" 

506 GETA$:IFA$="Y"THENRUN10 

507 IFA$O"N"THEN506 
510 PRINT"(SC)":END 
1000 REM PICK TYPES 

1002 PRINT" {SC}CH00SE ONE OR 
TYPES: (Y/N)" 



MORE 



ADDITION"; :N=1 



SUBTRACTION"; :N 
MULTIPLICATION" 



DIVISION": :N = 4 



IFT%(N)=1THEN 



1004 PRINT" {CD} 1. 
G0SUB1020 

1005 PRINT"(CD}2. 
-2:G0SUB1020 

1006 PRINT"{CD}3. 
; :N = 3:GOSUB1020 

1007 PRINT"{CD}4. 
GOSUB1022 

1008 CO=0:FORN=1T04 
C0=C0+1 

1009 NEXT: IFC0=0THEN1002 

1010 PRINT"{SC}":RETURN 
1020 REM GET Y/N 

102 2 GETA$:IFA$<>"Y"ANDA$<>"N"THE 

N1022 

102 4 PRINTTAB(18)A$:IFA$="Y"THENT 

%(N)=1 :0P$(N)=Q$ 

1025 RETURN 

15 00 PRINT" (SC) {CD] {CD} {CD} SKILL 

LEVEL?" 

1502 PRINT"{CD} {CD}1. BEGINNER":P 
RINT"(CD} (CD} 2. INTERMEDIATE" : PRI 
NT" {CD} {CD} 3. EINSTEIN {CD} {CD}" 

1503 INPUTS$:IFS$>"3"0RS$<"1"THEN 
1500 

1504 SK=10+(20*(3-VAL(S$))) :PRINT 
"(SC]":RETURN 

2000 PRINT" {SC} " SPC (225)" { PU } MATH 
DEFENDER"SPC(95)"{BL}BY ANDY VAN 
DUYNE" 

2003 G0SUB38:PRINT M {BK} {CD} (CD) {C 
D}T0UCH {RV}RETURN{R0} . . . " 

2004 GETA$: IFA$OCHR$ ( 13 )THEN2004 
2006 RETURN 

2100 PRINT" {SC} {CD} { CD } INSTRUCTIO 
NS?{SS}(Y/N)" 

2102 GETA$:1FAS="N"THENRETURN 
IFA$O"Y"THEN2102 
PRINT"{SC} {CDJMOVE THE MARKE 

TARGET A PROBLEM." 
PRINT"{CD} {CD} {RV}F{R0} = LE 
{RV]J(R0] = RIGHT" 



2103 

2104 
R TO 
2105 
FT 



PRO 

ft 



2106 PRINT"{CD} (CD)ANSWER THE 
BLEM AND PRESS {RV }RETURN { RO } 

2107 PRINT"{CD} (CDJIF THE PROBLEM 
REACHES THE BOTTOM, THE GAME IS 



OVER ! " : G0SUB2003 : RETURN 

BUG REPELLENT LINE CODES 
FOR VIC 20 MATH DEFENDER 



LINE 


# 


1:0C 


LINE 


# 


402 :A0 


LINE 


§ 


5:AK 


LINE 


# 


403 :FK 


LINE 


i 


10: NO 


LINE 


# 


404 :AJ 


LINE 


# 


13:H0 


LINE 


# 


405 :0G 


LINE 


# 


14: AK 


LINE 


# 


420 :CK 


LINE 


K 


15:IL 


LINE 


# 


422:BA 


LINE 


# 


17:JC 


LINE 


# 


424:KD 


LINE 


» 


30:CH 


LINE 


# 


500: LP 


LINE 


# 


32:KP 


LINE 


# 


502 :EK 


LINE 


# 


33:GM 


LINE 


it 


504: BD 


LINE 


# 


34:FI 


LINE 


§ 


50 5 :LL 


LINE 


# 


35:NJ 


LINE 


# 


506: DM 


LINE 


it 


36:MP 


LINE 


# 


507 :CB 


LINE 


# 


37:LB 


LINE 


# 


510:CI 


LINE 


it 


38:IB 


LINE 


# 


1 000 : E J 


LINE 


§ 


39:AC 


LINE 


# 


1002 :BF 


LINE 


it 


40:HM 


LINE 


# 


1004:PP 


LINE 


a 


41 :NL 


LINE 


# 


1005: FH 


LINE 


# 


42:NF 


LINE 


# 


1006:KE 


LINE 


# 


43:BF 


LINE 


# 


1007:BA 


LINE 


a 


44: EC 


LINE 


# 


1008: OH 


LINE 


a 


46:CP 


LINE 


# 


1009: CO 


LINE 


# 


47:FG 


LINE 


# 


1010 :DG 


LINE 


tt 


48:FG 


LINE 


# 


1020 :FL 


LINE 


# 


50: GA 


LINE 


# 


1022:CF 


LINE 


# 


51:PP 


LINE 


§ 


1024 :CJ 


LINE 


§ 


52:IA 


LINE 


# 


1025 :IM 


LINE 


§ 


53:IM 


LINE 


§ 


1500: ME 


LINE 


it 


60: OA 


LINE 


# 


1502: ON 


LINE 


# 


70:NJ 


LINE 


§ 


1503:BB 


LINE 


» 


71 :PP 


LINE 


# 


1504:NN 


LINE 


# 


100:LM 


LINE 


# 


2000 :NF 


LINE 


# 


102: MM 


LINE 


# 


2003 :BJ 


LINE 


# 


104:NF 


LINE 


# 


2004 :F0 


LINE 


# 


105 :BK 


LINE 


# 


2006 :IM 


LINE 


V 


106: OK 


LINE 


# 


2100:GJ 


LINE 


# 


107 sEP 


LINE 


it 


2102 :KF 


LINE 


# 


108:F0 


LINE 


# 


2103:HL 


LINE 


# 


109 :BB 


LINE 


# 


2104:FF 


LINE 


§ 


1 10: IK 


LINE 


it 


2105: JM 


LINE 


4 


120: CD 


LINE 


it 


2106: IN 


LINE 


# 


122:CL 


LINE 


it 


2107:AD 


LINE 


# 


400 :PK 


LINES 
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C-64 VERSION 



'1 REM MATH DEFENDER 
'2 G0SUB10000 

5 P0KE53280,0:P0KE53281,0 

00 



G0SUB21 
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10 X=RND(-TI) :DIMT%(4) ,X%(5) ,Y%(5 
), A%(5) ,OS(5) ,P%(5) ,0PS(5) ,0X$(4) 

12 S = 54272 :F0RN = ST054295:P0K EN, 0: 
NEXT:P0KEN, 1 5 : P0KES+5 , 1 5 : POKES+6 , 
255 

13 F0RN=1T05:P%(N)=1:NEXT 

14 D$="{HM} {CD}(CD} (CD) {CD} {CD} {C 
D) {CD] (CD) [CD} [CD) (CD} (CD} (CD J (CD 
} {CD} (CD) {CD} {CD} (CD}":SP$ = " 



15 0$(l)="":OS( 
R}(CR} [CR} (CR}{ 
[CR] (CR) (CR) (CR 

16 OS(4)=OS(3)+ 
CR] {CR) {CR] {CR) 
) (CR) {CR) {CR} {C 

17 0X$(l)="+":0 
X":0X$(4)="/" 
30 GOTO 102 

32 PRINTLEFT$(D 
L]"X%(Z%)"{CL}" 
}"OP$(Z%):RETUR 

33 Z%=RND(1)*5+ 
(Z%))0$(Z%)" 

1 :GOSUB32:RETUR 

34 TFFLTHENRETU 

35 IFA$="F"THEN 
037 

36 M%=M%+1+(M%> 

37 PRINTD$SP$D$ 
": RETURN 

38 F0RP=1T02E3: 

39 PRINTLEFT$(D 
RETURN 

40 REM GEN PROB 

41 Z=1NT(RND(1) 
N41 

42 X=INT(RND(1) 
10) :0NZG0SUB43, 

43 A=X+Y: RETURN 
D=X+Y:X=D:A= 
A=X*Y: RETURN 
IFY=0THENY=I 



2)="{CR) (CR) (CR) [C 
CR]":0$(3)=0$(2)+" 
} (CR) (CR} (CR) (CR}" 
"(CR) {CR} (CR) {CR} { 
":0$(5)=0$(4)+"{CR 
R) {CR} (CR) (CR)" 
X$(2)="-":OX$(3)=" 



$,P%(Z%))0$(Z%)"(Y 

Y%(Z%)"(CL} (CLJ (CL 
N 

1:PRINTLEFT$(D$,P% 
":P%(Z%)=P%(Z%)+ 
N 

RN 
M%=M%-1-(M%<2) :G0T 

4) 

0$(M%)" {RV}{LG}" 

NEXT:RETURN 
$,P%(M%))0$(M%)Q$: 

LEM 

*4) + l :IFT%(Z)=OTHE 

*10):Y=INT(RND(1)* 

44,46, 47:RETURN 



44 
46 
47 
47 
48 
50 
51 
52 



X-Y: RETURN 
NT(RND(1)*10) :GOTO 



D=X*Y:X=D:A= 

REM GET ANSW 
FL=1 : AN$=AN$ 
PRINTD$"{CD} 

[PU}"AN$:IFLEN( 

53 RETURN 

60 PRINTD$"{CD} 

}{CD}{CD}(LB}(R 



X/Y:RETURN 

ER 

+ A$ 

"SPSDSO$(M%)" 

ANS)>2THENG0S 



(CD} {CD}"SP$D 
V } SCORE :"SC:R 



{CD} 
UB420 

$"{CD 
ETURN 



F0RN=1T05 



NEXT 



70 IFVAL(AN$)=A%(M%)THENGQSUB400: 
RETURN 

71 G0SUB420:RETURN 
100 REM INIT 

102 G0SUB1000:G0SUB1500: 
:G0SUB40:0P$(N)=0X$(Z) 

103 X%(N)=X: Y%(N)=Y:A%(N)=A 
M%=1 :G0SUB34 

104 P'RINTD$^{_CUH_R^]_L£££££LJ LLLl'l 

■:::::::;:::•::■: i I I I " 

105 F0RN=1T05:Z%=N:G0SUB32:NEXT 

106 FORP=1TOSK:GETA$:IFA$=""THEN1 
20 

107 TFA$<"0"ORA$>"9"THEN109 

108 G0SUB51 {GOT0120 

109 IFAS="F"0RA$="J"THENG0SUB34 :G 
0T0120 

110 IFA$=CHR$(13)ANDLEN(AN$)>0THE 
NG0SUB70 

120 NEXT:G0SUB33: IFP%(Z%)=1 9THEN 5 

01 

122 GOTO! 06 

400 REM RIGHT ANS 

40 2 PRINTD$"{CD}"SP$:Q$ = "{RV} {RD} 

**#**" :G0SUB39:P0KES+4, 129:F0RP=1 

00T020STEP-4 

403 POKES+1 ,P:NEXT:P0KES+1 ,0:POKE 
S+4,128:Q$=" ":G0SUB39 

404 P%(M%)=1 :G0SUB41 : X%(M%) =X : Y%( 
M%)=Y:A%(M%)=A:Z%=M%:GQSUB32:AN$= 
"":FL=0 

405 0P$(M%)=0X$(Z) :SC=SC+10:G0SUB 
60: RETURN 

420 REM WRONG 

42 2 PRINTD$"{CD}"SP$:POKES+4,33:F 

ORP=1T050:POKES+1 , 1 : NEXT : POKES+1 

,0:P0KES+4,32 

424 AN$="":FL=0:SC=SC~5-5*(SC<5) : 

G0SUB60: RETURN 

500 REM LOSE 

501 POKES+4,33 

502 F0RP=100T010STEP-.5:P0KES+1 ,P 
: NEXT: POKES+l , : P0KES+4 , 32 

504 PRINT" (HM) {CD} YOUR BASE HA 
S BEEN OVERRUN! ! !":G0SUB38 

505 PRINT"{HN}"SP$SPSSP$"(HM} (CD) 
PLAY AGAIN? (Y/N)" 

506 GETAS : I FA S = " Y "THENRUN 10 

507 IFA$O"N"THEN506 
510 PRINT" (SC)": END 
1000 REM PICK' TYPES 

1002 PRINT"{SC} (LB)CHOOSE ONE OR 
MORE TYPES: (Y/N)" 
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ADDITION"; :N=] 



SUBTRACTION"; :N 



MULTIPLICATION" 
DIVISION"; :N = 4: 



1004 PRINT" {CD} 1 
G0SUB1020 

1005 PRINT" {CD] 2 
=2:GOSUB102O 

1006 PRINT" {CD) 3 
; :N = 3:GOSUB1020 

1007 PRINT" (CD) 4 
COSUB1022 

1008 C0=0:F0RN=1T04:IFT%(N)=1THEN 
C0=C0+1 

1009 NEXT:IFC0=0THEN1002 

1010 PRINT" {SC}": RETURN 
1020 REM GET Y/N 

102 2 GETA$:IFA$<>"Y"ANDA$<>"N"THE 

N1022 

102 4 PRINTTAB(18)A$:IFAS="Y"THENT 

%(N)=1 :OP$(N)=Q$ 

1025 RETURN 

1500 PRINT" {SC) {CD} {CD} (CD} SKILL 

LEVEL?" 

1502 PRINT" {CD} {CD} 1 . BEGINNER":? 
R INT" {CD} (CD) 2. INTERMEDIATE" :PRI 
NT"(CD} {CD]3. EINSTEIN(CD) {CD}" 

1503 INPUTS$;IFS$>"3"0RS$<"1"THEF 
1500 

1504 SK=5+(10*(3-VAL(S$)) ) : PRINT" 
(SC}":RETURN 

2003 PRINT" (WH) {CD} (CD) {CD} TOUCH 
( KV) RETURN (RO) , . ." 

2004 GETA$:IFA$OCHR$(13)THEN2004 
2006 RETURN 

2100 PRINT" {SC} {CD} {CD} (GN)INSTRU 

CTIONS? (SS) (Y/N)" 

2102 GETAS:IFA$="N"THENRETURN 

IFA$O"Y"THEN2102 

PRINT"{SC}{CD}MOVE THE MARKE 

TARGET A PROBLEM." 

PRINT"(CD]{CDJ{RV}F{RO} = LE 
{RV}J{RO} = RIGHT" 



2103 

2104 
R TO 
2105 
FT 



2106 PRINT"{CD} (CD)ANSWER THE 
BLEM AND PRESS {RV J RETURN { RO} 

2107 PRINT"{CD}{CD}IF A PROBLEM 
EACHES THE BOTTOM, THE GAME 
S OVER!" 

2108 GOSUB2003: RETURN 

10000 REM TITLE PAGE 

10001 P0KE53280,0:P0KE53281 ,0 

10002 PRINT"{SC} {CD} {CD} {RD) 



PRO 
ii 



R 
[ 



:;.- $ s 



. 4jt •*> ••*' - l * -*' -J* - 



-<* •** J. -V -V- -J. -<- •!- •>* -'- I 1 

*i° *i" "I* "C "I" "i" "I" "*" "I* "t 1 

10006 PRINT"{HM} {CD} (CD) (CD} [CR} { 
CR] {CR} {CR} {CR} {CR} {CR} {YL}"; 

10007 PRINT" (RV) 

10008 PRINT" (CR) (CR](CR}{CR){CR}( 
CR) (CR} (RV) 

10009 PRINT" {CR} {CR} (CR) (CR) {CR}{ 

CR}{CR){RV) **MATH DEFENDER** 
ti 

10010 PRINT" {CR} {CR} {CR) {CR) (CR) ( 

CR}{CR) (RV) 
ii 

10011 PR1NT"{CR) (CR) (CR) (CR) (CR) ( 

CR} (CR) (RV) 
it 

10013 GOSUB38 

10019 G0SUB38 

10020 PRINT"{CD) (CD) (CD) (CD) {LB} 

BY ANDY VAN DUYNE" :GOSU 
B 200 3 ; PR I NT "(SC)": RETURN 

BUG REPELLENT LINE CODES 
FOP C-64 MATH DEFENDER 



10003 F0RN=1T05 

10004 PRINT" 

*":NEXT 

10005 PRINT" 



LIN E 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 1:CC 

# 2:11 

# 5:0K 

# 10: CD 

# 12:01 

# 13:JJ 

# 14:AP 

# 15-.IL 

# 16:BI 

# 17:JC 

# 30:CH 

# 32:IF 

# 33:IL 

# 34:FI 

# 35: NJ 

# 36:NB 
§ 37:AJ 

# 38:IB 

# 39: AC 

# 40:HD 

# 41:NL 

# 42:NF 

# 43:BF 

# 44: EC 

# 46:CP 
» 47:FG 

# 48:FG 

# 50: EN 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 
# 

# 

# 
# 
# 
# 
# 
# 
# 
# 
# 
# 

# 
# 
# 
# 

# 
# 

# 
# 
# 
# 



51 

52 

53 

60 

7 

71 

100 

102 

103 

104 

105 

106 

107 

108 

109 

110 

120 

122 

400 

402 

403 

404 

405 

420 

422 

424 

500 

501 



PP 
PI 
IM 
KF 
NJ 
PP 
:MF 
:FG 
:NF 
:NC 
:H0 
:0K 
:KP 
:F0 
:BB 
:IK 
:BL 
:CL 
:AP 
:0P 
: AF 
:PD 
:0G 
:CE 
:AH 
KD 
MO 
FL 
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LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 
# 
# 
# 
# 
# 
# 
# 

# 
# 
# 
# 

# 

# 
# 
# 
# 
# 
# 
# 
# 
# 
# 



502: 
504: 

505: 

506 

507: 

510: 

1000: 

1002: 

1004: 

1005: 

1006: 

1007: 

1008: 

1009: 

1010 

1020 

1022 

1024 

1025 

1500 

1502 

150.3: 

1504: J J 

200 3 :EB 

2004 :FO 



BF 

FD 

CK 

DM 

CB 

CI 
DF 
AN 
PF 
PF 
GG 
LG 
OH 
CO 
DG 
EC 
CF 
CJ 
IM 
NA 
HP 
BB 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
L ! X F 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINES 



2006: 
2100: 
2102: 
2103: 
2104: 
2105: 
2106: 
2107: 
2108: 
10000 
10001 
1000 2 
10003 
10004 
10005 
10006 
1000 7 
10008 
10009 
10010 
10011 
10013 
10019 
100 20 
105 



IM 

FI 

KF 

HL 

AO 

LL 

DO 

NI 

CB 

:CM 

:BH 

:PJ 

:JF 

:NH 

:IH 

:0F 

:N0 

:GH 

:EM 

:GH 

:GH 

:PN 

:PN 

:0C 



BRISK 

FROM PAGE 48 



IMPORTANT 

Before typing in an Ahoy! program, refer to the 
first two pages of the program listings section. 



2 PRINT" (SC) 

3 PRINT"{CD} 
CDHCD} (CD) [ 
ULD YOU LIKE 

4 GET Q$:IFQ 

5 IFQ$=""THE 

6 PRINT"(SC} 
80,2 

7 DIMP(2,39) 

10 F0RW=5529 
W 

11 SD=54272: 
0: NEXT: POKES 
SD+24,15:L=0 
15 TM=0:TC=0 
E1788+54272, 
17 FOR L0=1T 



":G0SUB50000 

(CD) (CD] (CD) {CD} (CD} ( 

CD) {CR} (CR) {CR} {CR}W0 

INSTRUCTIONS Y/N" 
$="Y"THEN60000 
N4 
":P0KE53281, 1:P0KE532 

:DIMC$(39) 
6T056295:POKEW,0:NEXT 

FORL=SDTOSD-!-2 4:POKEL, 
D+5,9:P0KESD+6,0:POKE 

:POKE1708+54272,4:POK 

4 
OOSTEP-l 



20 A=0 : D=0 : M=0 : G=0 : TY=0 : TP=0 : XY=0 
: J=5 6039:AB=5 568 7: AE=55689 

21 B=1509:N=1389 

37 GOSUB 1000:GOSUB 5000 

50 FOR Y=OT039:C$(Y)="":NEXTY 

100 F0RQ=0T06 

101 A=A+1 

103 R=INT(RND(1)*40) 
■105 IFC$(R)=STR$(R)THEN103 
•110 C$(R)=STR$(R) 
>1 15 IFQ=6THENF0RK=0T02:TR(K, 1)=P( 

K , R ) : NEXTK : G0SUB6000 : T( 9 ) =TR( 2 , 1 ) 

: GOTO 130 

122 IFA=L0THEND=D+1 : FORK=0T02 : PL( 

K,D)=P(K,R) : NEXTK : G0SUB3000 : G0T01 

30 
.12 5 M=M+1:F0RK=0T02:MC(K,M)=P(K,R 

):NEXTK:A=(L0-1) 
.127 ON M GOSUB 1400,1500,1600 
■130 NEXTQ: GOSUB 7000: GOSUB 9000 
'131 WN=L0: IFWN=0THENG0SUB10000: GO 
SUB8000:ZX=0:GOTO 133 
•132 GOSUB8000:GOSUB10000 
IFWN=OTHEN28000 
VL(1)=T(4) :VL(2)=T0 
SU(1)=MC(2,I1) :SU(2)=T(5) 
GS(1)=SU(1):IFSU(1)=T(9)THENS 



'133 
.134 
•135 
• 136 

U(l)=l:GOT0138 
•137 SU(1)=0: 
•138 GS(2)=SU(2): 

U(2)=1:G0T0140 
•139 SU(2)=0 

GOSUB 12 000 



IFSU(2)=T(9)THENS 



140 
141 
142 
143 
'150 
-151 



GOSUB 18000 

G=0:IFAA=1THEN30000 

TFXY=1THEN250 

FOR X=7T039 

PRINT" [HM} {CD} (CD } (CD) {CD} {CD 
} {CD} {CD} (CR) {CR} {CR} (CR} [CR} {CR} 
{CR} {CR}(CR} {CR} (CR}{CR) {CR} {CR} { 
CR} (CR) {CR} {CR} {CR} {CR} (CR} (CR) {C 
R} {CR} {CR} (CR} {CR} {CR} (CR) {CR} {CR 
} {CR} {CR} {CR}";X+1 
152 G=G+1 

R=INT(RND(l)-40) 

IFC$(R)=STR$(R)THEN200 

C$(R)=STR$(R) 

IFTES=0THEN240 

FORK=0TO2:PL(K,I)=P(K,R) :NEXT 



200 
210 
2 20 
.2 30 
■233 
K 

■ 234 
■235 
•236 



TES = 

GOSUB 14000 

IFX=39THEN27000 
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'237 
240 
TK 

'241 
245 
247 
249 
250 
300 
305 
306 
310 
315 
330 



GOTO 249 
F0RK=0T02 



MC(K,I1)=P(K,R) :NEX 



TES = 1 

GOSUB 16000 
IFX=39THEN27000 
IFG=2THENXY=1 :G0T025000 
NEXTX 



P0KE1497.32 



POKE1340,32 

P0KE1339.32 

P0KE1415.32 

TM=TP:TC=TY 

POKE 1709,32:POKE1789,32 

PRINT 1 ' {HM} {CD} {CD}{CR] {CR} {CR 
} {CR} {CR} (CR) {CR}{CR} {CR){CR} {CR} 
THE SECOND HALF" : RESTORE: TY=0 :TP= 
: AA=0 : G0SUB7500 : NEXTLO 
340 PRINT" (HM] { CD } {CD) {CD) { CD } { CD 
) {CD} {CD) {CD) {CD} [CD) {CD} {CD} {CD} 
{CD) {CD} {CD} {CD} {CD) (CD) (CD) {CD} { 
CD} {CD} {CR} (CRJIT'S A DRAW":G0T04 
0000 
500 END 

700 P0KE1472,66; 
552,66:POKE1468 
KE1548,66 
720 P0KE1432.73: 
430,67:P0KE1429. 
722 P0KE1588.74 
590,67:POKE1591, 
TURN 

750 P0KE1514.66: 
474,66:POKE1554. 
KE1594.74 
752 POKE1435.67 
437,67:P0KE1438 
KE1558.66 
754 P0KE1595,67 



P0KE1512,66:P0KE1 
66:PQKE1508,66:P0 

P0KE1431 ,67:P0KE1 
67:POKE1428,85 
P0KE1589,67:P0KE1 
67:P0KE1592,75:RE 

P0KE1518,66:P0KE1 
66:P0KE1434,85:P0 



P0KE1436,67: 
73:P0KE1478, 



P0KE1 
66:P0 



597,67:P0KE1598 

760 P0KE1520.66 

480,66:POKE1560 

KE1564,66 

762 P0KE1444,73 

442,67:P0KE1441 

764 P0KE1600,74 

602,67:POKE1603 

TURN 

800 P0KE1272.66 

352,66:P0KE1268 

KE1348.66 

820 P0KE1232.73 

230,67:P0KE1229 

822 POKE1388.74 



P0KE1596,67:P0KE1 
75:RETURN 
P0KE1524,66:P0KE1 
66:P0KE1484,66:P0 

P0KE1443,67:P0KE1 
67:P0KE1440,85 
POKE1601,67:P0KEl 
67:POKE1604,75:RE 

P0KE1312,66:P0KE1 

66:P0KE1308,66:P0 

POKE1231, 67:P0KE1 

67:P0KE1228,85 
P0KE1389,67:P0KE1 



390, 
TURN 

•850 
274, 
KE13 

•852 
237, 
KE13 

• 854 
397, 

. 860 
280, 
KE13 

.862 
242, 

•864 
40 2, 
TURN 

.960 
7 60, 
KE18 

. 962 
722, 

. 964 
882, 
TURN 

. 970 
766, 
KE18 

. 972 
728, 

. 974 
888, 
TURN 

• 1000 

• 1005 

• 1010 

• 1015 

• 1020 
. 1030 

• 1 1 00 
T 

• 1105 
T 

• 1110 
T 

• 1120 
T 

-.1125 

T 
•1130 

• 1200 
T 



67:POKE1391,67:POKE1392,75:RE 



P0KE13 

66:P0K 

94,74 

P0KE12 

67;P0K 

58,66 

POKE 13 

67:POK 

P0KE13 

66:P0K 

64,66 

P0KE12 

67:P0K 

P0KE14 

67:P0K 



P0KE1800.66 

66:POKE1840 

44,66 

P0KE1724,73 

67:P0KE1721 

P0KE1880.74 

67:P0KE1883 

P0KE1806.66 

66:P0KE1846 

50,66 

P0KE1730.73 

67:P0KE1727 

P0KE1886,74 

67:P0KE1889 

F0RT=0T039 

F0RU=0T02 

READ P(U,T 

NEXTU 

NEXTT 

RETURN 

F0RL=-1T03 

F0RL=-1T03 

F0RL=-1T03 

F0RL=-1T03 

F0RL=-1T03 

RETURN 
F0RL=-1T03 



14,66:P0KE1318,66:P0KE1 
E1354,66:P0KE1234,85:P0 

35,67:POKE1236,67:POKEl 
E1238,73:P0KE1278,66:P0 

95,67:P0KE1396,67:P0KE1 

E1398,75:RETURN 

20, 66 : POKE 13 24, 66: POKE 1 

E1360,66:P0KE1284,66:P0 

44,73:P0KE1243,67:P0KE1 

E1241 ,67:P0KE1240,85 
00,74:P0KE1401 ,67:P0KE1 
E1403,67:P0KE1404,75:RE 

:POKE1804,66:POKE1 

,66:P0KE1764,66:P0 

:POKE1723,67:P0KEl 
,67:POKE1720,85 
:P0KE1881 ,67:P0KE1 
,67:P0KE1884,75:RE 

:POKE1810,66:POKE1 
,66:POKE1770,66:P0 

:P0KE1729,67:P0KE1 
,67:P0KE1726,85 
:P0KE1887,67:P0KE1 
,67:P0KE1890,75:RE 



) 



POKE1229+L,32:NEX 
P0KE1269+L,32:NEX 
P0KE1309+L,32:NEX 
P0KE1349+L,32:NEX 
P0KE1389+L,32:NEX 

P0KE1235+L,32:NEX 
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. 1205 F0RL = -1T03:P0KE1275 + L,32:NEX 

T 
•1210 F0RL=-1T03:P0KE1315+L,32:NEX 

T 
. 1220 F0RI=-1T03:P0KE1355+L,32:NEX 

T 
• 1225 FORL=-lT03:P0KE1395+L,32:NEX 

T 
. 1230 RETURN 

1300 F0RL=-1T03:P0KE1241+L,32:NEX 

T 

• 1305 F0RL=-1T03:P0KE1281 + L,32:NEX 
T 

• 1310 F0RL=-1T03:P0KE1321+L,32:NEX 
T 

• 1320 F0RL = -1T03:P0KE1361+L,32:NEX 
T 

• 13 25 F0RL=-1T03:P0KE1401+L,32:NEX 
T 

. 1330 RETURN 

• 1400 GOSUB 800 

• 1402 FORL=OT02:POKE1269+L+54272,6 
:P0KE1269+L, 102:NEXT 

« 1410 FORL=OT02:POKE1309+L+54272,6 

:P0KE1309+L, 102:NEXT 
• 1420 FORL=OT02:POKE1349+L+54272,6 

:POKE1349+L,102:NEXT 

• 1430 RETURN 
*1500 GOSUB 850 

. 1502 FORL=OT02:POKE1275+L+54272,6 

:P0KE1275+L, 102:NEXT 
•1510 F0RL=0T02:P0KE1315+L+542 72,6 

:P0KE1315+L,102:NEXT 

• 1520 F0RL=0T02:P0KE1355+L+54272,6 
:POKE1355+L,102:NEXT 

,1530 RETURN 
•1600 GOSUB 860 

• 160 2 FORL=0T02:POKE1281 + L + 54 2 7 2,6 
:P0KE1281+L,102:NEXT 

• 1610 FORL=0T02:P0KE1321+L+54272,6 
:P0KE1321+L,102:NEXT 

. 1620 FORL=OT02:POKE136l+L+54272,6 

:P0KE1361+L,102:NEXT 
. 1630 RETURN 
•2000 DATA 32,1,65,32,50,65,32,51, 

65,32,52,65,32,53,65,32,54,65,32, 

55,65 
•2010 DATA 32,10,65,32,17,65,32,11 

,65 
•2020 DATA 32,1,83,32,50,83,32,51, 

83,3 2,5 2,8 3,32,5 3,83,32,54,83,32, 

55,83 
•2030 DATA 32,10,83,32,17,83,32,11 
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,83 

2040 DATA 32,1,88,32,50,88,32,51, 

88,32,5 2,88,3 2,5 3,88,32,54,88,32, 

55,88 

2050 DATA 32,10,88,32,17,88,32,11 



2060 DATA 32,1,90,32,50, 

90,32,52,90,32,53,90,32, 

55,90 

2070 DATA 32,10,90,32,17 

,90 

3000 ON D GOSUB 700,750, 

3001 IFPL(2,D)=900RPL(2, 
G0SUB11000:GOTO3005 

3002 POKE(B-40+54272),0: 
42 7 2,0:POKEB+4 2+54 2 7 2,0 
3005 P0KEB-40,PL(2,D):F0 
OKEB+L,PL(L,D):NEXTL:POK 
2,D):B=B+6 

3010 RETURN 

5000 POKE 1630,49:P0KE16 

E1642.51 

5010 POKE 1194,20:P0KE11 

1196,5:POKE 1198,4:P0KE1 

El 200, 1 

5020 P0KE1201.12 

5030 P0KE1710,25 

1712, 21 :P0KE1713 

5040 P0KE1715,16 

1717,1 :P0KE1718, 25:P0KE1 

5050 P0KE1449,20:P0KE145 

1451 ,21 :P0KE1452, 13: POKE 

5100 P0KE1529, 19:P0KE153 

531 , 15:P0KE1532, 18:P0KE1 

5110 P0KE1608,25:P0KE160 

1610,21 

5120 POKE1613.13 

26:QV=54272 

5130 POKEQB+QV.O 
1+QV,U:P0KEQB+1 , 1 :POKEQB 
OKEQB+2, 18 

5131 P0KEQB+3+QV,0:P0KEQ 
EQB+4+QV,0:P0KEQB+4 , 19 

5132 P0KEQB+6+QV,0:P0KEQ 
KEQB+7+QV,0:P0KEQB+/,12: 
QV,0 

5133 P0KEQB+8,l:P0KEQB+9 
EQB+9,25:POKEQB+10+QV,0: 
,5 

5134 POKEQB+11 ,0:P0KEQB+ 
5200 RETURN 

6000 G0SUB6100 

6001 IFTR(2, 1)=900RTR(2, 



90,32,51, 
54,90,32, 

,90,32,11 

760 
D)=83THEN 

POKEB+1+5 

RL=1T01:P 
EB+42,PL( 



36, 50:POK 

95,8:P0KE 
199,5:P0K 



P0KE1711 , 15:P0KE 

18 

P0KE1716, 12:P0KE 
708,81 
0,18: POKE 
1453, 16 
0,3:P0KE1 
533,5 
9, 15: POKE 

P0KE1614,5:QB-13 

P0KEQB,3:P0KEQB+ 
+2+QV,0:P 

B+3,4:P0K 

B+6, 16:P0 
P0KEQB+8+ 

+QV,0:POK 
POKEQB+10 

11,4 



1)=83THEN 



POKE 

69,1 

6005 

6008 

:NEX 

6010 

6100 

1418 

6105 

1375 

0KE1 

6110 

1454 

6190 

7000 

El 19 

POKE 

7001 

7010 

1195 

7020 

1201 

7 500 

1195 

0KE1 

7501 

5576 

7502 

120 2 

7503 

7 504 

196, 

1199 

7 506 

TRY 

7510 

1195 

0KE1 

7512 

B141 

RN 

7800 

02 70 

7810 

02 71 

7820 

02 7 2 

7830 

8000 

8001 

00 

8002 

(I = X 



5 5687, 10:POKE5 572 8,10:POKE557 


P0KE1415,TR(2,1) 

F0RL=1T01:P0KE1455+L,TR(L, 1) 
TL:POKE1455+42,TR(2, 1) 

RETURN 

P0KE1 498, 66: POKE 1458, 66: POKE 
,66:P0KE1378,73:P0KE1538,75 

POK El 3 77, 67: POKE 13 76, 67: POKE 
,67:P0KE1537,67:P0KE1536,67:P 
535,67 

P0KE1534,74:P0KE1494,66:P0KE 
,66:POKE1414,66:POKE13 74,85 

RETURN 

POKE 1194,32:POKE1195,32:POK 
6, 32: P0KE1 198, 32: POKE 11 99, 32: 
1200,3 2 

POKE 1201,3.2 

POKE 1193,12:P0KE1194,5:P0KE 
,20:P0KE1196,39:POKE1197, 19 

POKE1199,16:P0KE12 00, 12: POKE 
,1 :POKE1202,25:RETURN 

P0KE1 193, 32: POK El 19 4, 32: POKE 
,32:P0KE1196,32:P0KE1197,32:P 
199,32 

P0KE55687,0:P0KE5 5 7 28,0:P0KE 
9,0 

POKE1200,32:POKE1201 ,32: POKE 
,32 

XA=0:XB=0:XC=0:X=0 

P0KE1 194, 19: POK El 19 5, 8: POK El 
21 :P0KE1 197, 6 -.POKE 11 98, 6: POKE 
.12 

P0KE1 200 , 5 : FORRY= 1T04000 : NEX 

P0KE1 1 93, 32 :P0KE1 194,32: POKE 

,32:POKE1196,32:POKE1197,32:P 
198,32 

POKE 1 199, 32: POK El 200, 32 :GOSU 
00 : GOSU B 1 4 200 : GOSUB 1 4 300 : RETU 

IFT(l)>125ANDT(6)OT(9)THENl 

IFT(2)>125ANDT(7)<>T(9)THEN1 

IFT(3)>125ANDT(8)OT(9)THENl 

GOTO 10261 

GET I$:IFI$=""THEN8000 

IFVAL(I$)<10RVAL(I$)>3THEN80 

I=VAL(I$) :IF(I=XA)0R(I=XB)OR 
OTHEN8000 



8003 POKESD+1 , (15*1) : POKESD, 120: P 
0KESD+4, 17 :F0RT=1T0100:NEXT: POKES 
D+4, 16 

8004 IFPL(2,I)=900RPL(2,I)=83THEN 
F0RL=JT0J+82STEP41 :P0KEL-6, 10:NEX 
T:GOT08006 

8005 F0RL=JT0J+82STEP41 :P0KEL-6,0 
:NEXT 

8006 REM 

8007 IFI=1THENG0SUB8100:G0T08012 

8008 IFI=2THENG0SUB8 200:G0T08012 

8009 IFI=3THENG0SUB8300 

8012 T0=0 

8013 GOSUB960:POKE1761 ,PL(2,I) :F0 
RK=1T01 : POKE 1 802, PL (K, I) : NEXT: POK 
E1843,PL(2,I) 

8015 F0RK=0T01 : T0=TO+PL( K , I ) :NEXT 
K 

8016 T(5)=PL(2,I) 

8017 IFT0=33THENT0=150: F=ll :G0T08 
040 

8018 IFT0=8 3THENT0=125:F=10:G0T08 
040 

8019 I FT0=4 3THENT0= 1 1 5 : F=4 : G0TO80 
40 

8020 IFT0=42THENT0=110:F=3:GOT080 
40 

8021 IFT0=49THENT0=100:F=2:GOTO80 
40 

8030 F=0 

8040 G0T08900 

8100 F0RL=-1T03:P0KE1429+L,32 :NE 

XT 

8105 F0RL=-1T03:P0KE1469+L,32 :NE 

XT 

8110 F0RL=-1T03:P0KE1509+L,32 :NE 

XT 

8120 F0RL=-1T03:P0KE1549+L,32 :NE 

XT 

8125 F0RL=-1T03;P0KE1589+L,32 :NE 

XT 

8130 RETURN 

8200 F0RL=-1T03;P0KE1435+L,32 :NE 

XT 

8205 F0RL=-1T03:P0KE1475+L,32 :NE 

XT 

8210 F0RL=-1T03:P0KE1515+L,32 :NE 

XT 

8220 F0RL=-1T03:P0KE1555+L,32 :NE 

XT 

8225 F0RL=-1T03:P0KE1595+L,32 :NE 

XT 

8230 RETURN 
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8300 F0RL=-1T03:P0KE1441+L,32 :NE 

XT 

8305 F0RL=-1T03:P0KE1481+L,32 :NE 

XT 

8310 F0RL=-1T03:P0KE1521+L,32 :NE 

XT 

8320 FORL=-1T03:POKE1561+L,32 :NE 

XT 

8325 F0RL=-1T03:P0KE1601+L,32 :NE 

XT 

8330 RETURN 

8900 IFX=>39THENG0SUB62500 

8999 RETURN 

9000 FL=0 

9010 IFPL(2,1)=TR(2,1)THENFL=1 : GO 

T09999 

9020 IFPL(2,2)=TR(2, 1)THENFL=1 : GO 

T09999 

9030 IFPL(2,3)=TR(2,1)THENFL=1 

9999 RETURN 

10000 F0RV=1T03 
10100 F0RK=0T01 

10150 T(V)=T(V)+MC(K,V) 

10200 NEXTK 

10205 T(5+V)=MC(2,V) 

10210 IFT(V)=33THENT(V)=150:G0T01 

0255 

10220 IFT(V)=83THENT(V)=125:G0T01 

0255 

102 30 IFT(V)=43THENT(V)=115:G0T01 

02 5 5 

10240 IFT(V) = 4 2THENT(V) = UO:GOT01 

02 55 

102 50 IFT(V)=49THENT(V)=100 

10255 NEXTV:G0SUB9000 

102 56 IFZX=OANDFL=OANDX<39THEN780 



10261 IFZX=OTHEN10301 

10262 I F ( T ( 5 ) =T ( 9 ) ) TH EN 1 0300 

10263 SE(1)=0:SE(2)=0:SE(3)=0 

102 64 IFT(1)>T0ANDT(6)=T(5)THENSE 

(D=T(1) 

10265 IFT(2)>T0ANDT(7)=T(5)THENSE 

(2)=T(2) 

10 267 IFT(3)>T0ANDT(8)=T(5)THENSE 

(3)=T(3) 

10268 IFSE(l)>0ORSE(2)>0ORSE(3)>0 
THEN 10970 

10269 G0T010277 

102 70 I1 = 1:T(4)=T(1) : GOTO 107 5 

10271 I1=2:T(4)=T(2):G0T010705 

10272 I1=3:T(4)=T(3):G0T010705 
10277 IFT0>=125THEN10280 



. 10278 IF(T0=115)AND(X>20ANDX<36)T 

HEN 10280 
•10279 GOTO 10300 

• 10280 SY(1)=200:SY(2)=200:SY(3)=2 
00 

.10281 IFT(6)=T(9)THENSY(1)=T(1) 
•10282 IFT(7)=T(9)THENSY(2)=T(2) 
-10284 IFT(8)=T(9)THENSY(3)=T(3) 
•10285 IFSY( 1)C2000RSY(2)<2000RSY( 
3)<200THEN10990 

• 10286 GOTO 10301 

• 10300 IFT0=125ANDT(5)=T(9)THEN102 
63 

•10301 IFT(1)<=T(2)THEN10400 
•10310 IFT(2)<=T(3)THEN10500 
•103 20 T(4)=T(3) : 11=3: GOTO 10700 
•10400 IFT(1)<=T(3)THENT(4)=T(1) :I 

1=1:GOT010700 
•10410 T(4)=T(3) :I1=3:G0T0 10700 
•10500 T(4)=T(2) :I1=2:G0T010700 
•10700 IFT(5+I1)=T(9)THEN10930 
•10705 IFT(4)=150THEN0=11 :G0TO109O 



• 1 7 20 I FT ( 4 ) = 1 2 5THEN0= 1 : GOTO 1090 


• 10740 IFT(4)=115THEN0=4:G0T010900 
•10760 IFT(4)=110THENO=3:GOT010900 

• 10780 IFT(4) = 100THEN0 = 2:G0T010900 

• 10800 0=0 

•10900 IFI1=1THENGOSUB1100:GOT0109 
15 

• 10905 IFI1 = 2THENG0SUB1200:G0T0109 
15 

•10910 IFI1=3THENG0SUB1300 

•10915 POKE 1790, 13: POKE 1791 ,25:P0K 

El 79 3, 16:P0KE1794,12:P0KE1795, 1:P 

0KE1796,25 
.10916 POKESD+1, (15*11) :P0KESD,120 

:P0KESD+4, 17 :FORT=1T0100: NEXT jPOK 

ESD+4.16 
.10918 IFMC(2,I1)=900RMC(2,I1)=83T 

HENF0RL=JT0J+82STEP41 :P0KEL, 10:NE 

XT:G0T010920 
•10919 F0RL=JT0J+82STEP41 :POKEL,0: 

NEXT 

• 10920 G0SUB970 

•10922 POKE1767,MC(2 ,11) :F0RK=1T01 
:P0KE1808,MC(K,I1) : NEXT : P0KE1 849 , 
HC(2,I1) 

• 10925 G0T010999 

• 10930 XX = I1 : IFX = 39THEN10705 
•10931 BB-6-I1 

•10932 IFBB=5THEN10940 



80 AHOY! 



10933 IFBB=4THEN10950 

10934 IFBB=3THEN10960 

10940 IFT(2)>T(3)THENI1=3:T(4)=T( 

3) :G0T010944 

10942 I1=2:T(4)=T(2) 

10944 IFT(5+I1)=T(9)0RT(4)>115THE 

NI1 = XX:T(4)=T(I1) : GOTO 107 05 

10946 G0TO10705 

109 50 IFT(1)>T(3)THENI1=3:T(4)=T( 

3):GOT010954 

10952 11=1 :T(4)=T(1) 

109 54 IFT(5+I1)=T(9)0RT(4)>115THE 

NI1=XX:T(4)=T(I1) : GOTO 10705 

10956 GOT010705 

10960 1FT(1)>T(2)THENI1=2:T(4)=T( 

2) : GOTO 109 6 4 

10962 11=1 :T(4)=T( 1) 

10964 IFT(5+I1)=T(9)0RT(4)>115THE 

NI1=XX:T(4)=T(I1):G0T010705 

10966 G0T010705 

10970 IFSE(1)>SE(2)THEN10980 

10974 IFSE(2)>SE(3)THEN10985 

10976 GOTO 10272 

10980 IFSE(1 )>SE(3)THEN10270 

10982 GOTO 10272 

10985 GOTO 10271 

10990 IFSY(1)<SY(2)THEN10993 

10991 IFSY(2)<SY(3)THEN10995 

10992 GOTO 10272 

10993 IFSY(1)<SY(3)THEN10270 

10994 GOTO 10272 

10995 GOTO 10271 

10999 RETURN 

11000 P0KE(B-40+54272) , 10:P0KEB+1 
+ 542 72, 10:P0KEB+4 2 + 5427 2, 10 
11010 RETURN 

12000 IFSU(1)>SU(2)THEN 12500 

12100 IFSU(1)<SU(2)THEN 12600 

12200 IFVL(1)>VL(2)ANDGS(1)=GS(2) 

THEN 12 500 

12300 G0T012600 

12400 IFAA=1THENF0RSU0T02 :MC(K, II 

)=100:NEXT 

12402 RETURN 

12500 IFWN=0THENGOSUB21OO0:GOTO12 

550 

12525 G0SUB20000 

12550 GOTO 12400 

12600 IFWN=OTHENGOSUB2000O:GOT012 

650 

12625 G0SUB21000 

12650 GOTO 12400 

14000 15=1509 



14005 ON I GOSUB 700,750,760 

14010 IFT=1THEN B=B+0 : G0SUB1 4100 : 

G0T014040 

14020 IFI=2THEN B=B+6 : G0SUB14200 : 

GOTO 14 040 

14030 IFI=3THEN B=B+1 2 : G0SUB14300 

14040 IFPL(2,I)=900RPL(2,I)=83THE 

ND=I : G0SUB1 1000 : G0T014046 

14042 POK EB-40+ 54272, 0:POKEB+ 1+54 

272,0:POKEB+42+54272,0 

14046 POK EB-40.PL (2, I) :F0RL=1T01: 

P0KEB+L,PL(L,I):NEXTL:P0KEB+4 2,PL 

(2,1) 

14050 RETURN 

14100 F0RL=0T02:P0KE1469+L,32:NEX 

T 

14110 F0RL=0T02:P0KE1509+L,32:NEX 

T 

14120 F0RL=0T02:P0KE1549+L,32:NEX 

T 

14130 RETURN 

14 200 FORL=0TO2:POKE1475+L,32:NEX 

T 

14210 FORL=OT02:POKE1515+L,32:NEX 

T 

14220 FORL=OT02:POKE1555+L,32:NEX 

T 

14230 RETURN 

14300 F0RL=0TO2:POKE1481+L,32:NEX 

T 

14310 FORL=0TO2:POKE1521+L,32:NEX 

T 

14320 F0RL=0T02:P0KE1561+L,32:NEX 

T 

14330 RETURN 

16000 N=1389 

16010 IFI1=1THEN N=N+0 : G0SUB1400 : 

GOTO 16040 

16020 IFI1=2THEN N=N+6 : G0SUB1 500 : 

GOTO 16040 

16030 IFI1=3THEN N=N+1 2 : G0SUB1 600 

16040 REM 

16050 RETURN 

18000 F0RiUlT08:T(K)=0:NEXTK 

18100 FORK=1T01000:NEXTK 

18140 FORL=-lT03:POKE1721+L,32:PO 

KE1727+L,32:NEXT 

18150 F0RL=-1T03:P0KE1761+L,32:P0 

KE1767+L,32:NEXT 

18160 FORL=-1T03:POKE1801+L,32:PO 

KE1807+L,32:NEXT 

18170 F0RL=-1T03:P0KE1841+L,32:P0 

KE1847+L,32:NEXT 
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18180 F0RL = -1T03:P0KE1881 + L,32:P0 . 28010 SU( 1)=T(5) : SU( 2)=MC( 2 , 1 1) 

KE1887+L,32:NEXT "28020 GS ( 1 ) =SU ( 1 ) : 1 FSU ( 1 ) =T( 9 )THE 

•18201 RETURN NSU ( 1 ) = 1 : GOT028040 

• 20000 REM . 28030 SU(1)=0 

•20050 TP-TP+0+F '28040 GS ( 2 ) =SU ( 2 ) : I FSU ( 2 ) =T( 9 )THE 

•20060 P0KE1788,81 : P0KE1 708 , 32 : TES NSU( 2 ) = 1 : C0T0140 

=0:ZX=0:WN=0 .28050 SU( 2)=0 : GOT01-40 

.20102 IFZZ=1THEN20110 • 30000 I F(TY+TP= 1 20)THEN300 

• 20103 IFTP+TM>120THENPR1NT"(HM] {C -30001 I FZX=0THEN30500 
D] [CD] (CD) (CD) {CD} (CD) {CD} (CD) {CD • 30100 GOTO 30600 

} {CD} {CD} {CD} (CD) {CD} {CD} (CD) {CD} - 30500 GOSUB 1 0000 : G0SUB8000 : GOTO 1 3 
(CD} I CD J (CD) [CD} (CD) (CD J {CR J {CR} { 3 

CR)I WIN I'M THE BEST!":ZZ=1 • 30600 G0SUB8000 : G0SUB10000 : G0T013 
.20104 PRINT"(HM} {CD} (CD) (CD) [CD} { 3 
CD] [CD) [CD] {CD} (CD) (CD) {CD} {CD} {C . 40000 PRINT" { HM } {CD) (CD) (CD) {CR} { 
D} (CD) (CD) (CR) {CR} (CR) (CR) (CR) (CR CR ) { CR ) ( CR ) ( CR } { CR } ( CR } { CR } ( CR ) ( C 
) (CR) (CR) (CR) {CR} {CR} {CR} {CR} {CR} R } { CR } { CR } { CR } { CR } ( CR } { CR } { CR } { CR 
(CR) (CR) [CR) {CR} (CR}[CR) [CR) (CR) { } { CR ) ( CR ) [CR } ( CR } [ CR } ( CR ] GAME OVE 
CR}(CR}{CR}{CR){CR) {CR)";TP+TM R" 
•20105 EFZZ=1THEN40000 .40002 PRINT" { HM } ( CD } ( CD) { CD ) ( CD) ( 

20110 RETURN CR } { CR ) ( CR } { CR ) { CR ) (CR } { CR } {CR ) (C 

21000 REM R) {CR} (CR) {CR} {CR} (CR) (CR) [CR) {CR 

21050 TY=TY+0+F ) ( CR } ( CR } ( CR ) ( CR } ( CR } ( CR } ( CR }TRY 

21060 P0KE1708,81 : P0KE1 788 , 32 : TES AGAIN (Y/N)" 

-1 :ZX=1 :WN = 1 • 40003 GETQ$ : I FQ$ = " V'THENRESTORE: P 

.21102 IFZZ=1THEN21110 RINT" { SC } " : G0T062000 

■21103 IFTY+TO120THENPRINT"{HM}{C "40004 F0RZ=0TGT 5 : POKE53280 , Z: N EXT 
D] (CD) (CD) {CD} (CD) (CD) (CD) (CD) (CD • 40005 G0TO40O03 

} {CD} (CD} (CD) [CD) (CD} (CD) {CD} {CD} ' 50000 PRINT" ( HM } { CD } ( CD } { CD } { CR } { 
(CD) (CD) (CD) (CD) (CD) (CR) (CR)YOU W CR } ( CR } ( CR } ( CR } [ CR } { CR } { CR } { CR ] ( C 
IN YOU GOT LUCKY!":ZZ=1 R ) { CR ] ( CR ) { CR ) { CR } (CR ) ( CR ) B R I S 

.21104 PRINT"(HM} {CD} (CD) {CD} {CD} ( K" 
CD) (CD) [CD] (CD) (CD) (CD) (CD) [CD] (C • 50010 PR l.NT" ( HM) { CD } (CD) { CD} { CD) { 
D} {CD} (CD) [CR) {CR} {CR} (CR} {CR} {CR CD } (CD ) ( CR } (CR ) ( CR } { CR } ( CR } {CR } ( C 
} {CR} (CR) [CR} (CR) (CR) [CR) (CR) (CR) R } { CR ) { CR } { CR ) DES I GNED BY JOSEPH 
(CR) (CR}(CR}(CRJ (CR) ICR}(CR}(CR}{ FUSCO " 

CR} [CR]";TY+TC .50060 PRINT" ( HM } { CD ) (CD } { CD } { CD } { 

•21105 IFZZ=1THEN40000 CD } { CD } { CD } { CD } { CD] { CD }( CD ) { CD } { C 

•21110 RETURN D } { CD } { CD ) { CD } ( CD ] ( CD } ( CD } { CR } { CR 

•25000 IFZX=0THEN25500 } (CR } COPYRIGHT 1984 BY JOSEPH FUS 

• 2 5010 GOTO 26000 CO" 

•25500 G0SUB10000:G0SUB8000:G0T013 .50070 PRINT" ( HM ] ( CD } { CD } ( CD } (CD ) ( 
3 CD} {CD} {CD) {CD} {CD) (CD) {CD} {CD} {C 

• 26000 G0SUB8000: GOSUB 10000: GOTO 13 D } { CD } { CD } { CD ) { CD ) { CD } { CD } { CD } ( CR 
3 }{CR}{CR)ALL RIGHTS RESERVED." 

•27000 F0RL=0T0 1 : POK H 1 4 5 5+L , 32 : N EX • 50998 FOR WA=1T06000 : N EXT : PRI NT" { 
TL SC}" 

• 27005 lFTt-S=0THENF0RK=0T02:MC(K,I .50999 RETURN 

1)=TR(K, 1) :NEXTK:G0SUB16000:AA = 1 : '60000 PR 1 NT" ( SC ) " : PR 1 NT" ( HM } (CD) { 
GOT030000 CR) OBJECT: TO BE THE FIRST TO SCO 

•27010 FORK=0TO2:PL(K,I)=TR(K,l):N RE 121 P- OINTS." 
EXTK:GOSUB14000: AA=1 :GOT030000 .60002 PRINT" THERE ARE TW 

•28000 VL(1)=T0:VL(2)=T(4) HANDS PER-GAME." 
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60005 PRINT" 
ME BEGINS WI 

60006 PRINT" 
CR) {CR} {CR} { 
RDS DEALT TO 

60007 PRINT" 
CR) (CR) {CR} 
EALT THE "; 

60008 PRINT" 
CR) {CR} {CR} { 
IS TRUMP" 

■60009 PRINT" 
TRUMP-CARD 2 
60010 PRINT" 
YOU LEAD YOU 

.60011 PRINT" 
CR} {CRHCR} { 
OR TRUMP." 

■60012 PRINT" 
YOUR PLAY KZ 

■60013 PRINT" 
CR} {CR} {CR} { 
E KZ > 6Z." 

■60014 PRINT" 

CR} {CR} {CR}{ 

AND CLUBS I 

-60015 PRINT" 
CR] {CR} {CR} 
N PLAY THE"; 

-60016 PRINT" 
CR) (CR} {CR} 
AND WIN." 

-60017 PRINT" 
TO LET THE 

■60018 PRINT" 
CR} (CR} (CR} 
YOU CAN"; 

■60019 PRINT" 
CR} (CR} {CR} { 
HE HIGHER CA 

.60020 PRINT" 
CR} {CR} {CR} { 
RUMP A LOAD 

■60021 PRINT" 
S OR THREES" 

'60022 PRINT" 
=10,K=4,J=3, 
60023 PRINT" 
CR] {CR} (CR) { 
6,7 HAVE NO 

60040 PRINT" 
AY,E FOR MOR 

60041 GETQ$: 



(CR) {CR}TRUMP: THE GA 
TH THREE "; 
(CR) (CR) {CR} {CR} {CR} { 
CR} {CR} {CR} {CR} (CR}CA 

EACH PLAYER 
{CR} (CR) (CR) {CR} (CR) { 
THE SEVENTH CARD IS D 

{CR} {CR} (CR) {CR) {CR} { 
CR}SUIT OF THIS CARD 

{CR} {CR} {CR} {CR}EX/: 
X CLUBS IS TRUMP!" 
{CR} (CR) {CR}PLAY: IF 
R OPPONENT CAN " 
{CR} (CR}{CR) {CR} (CR) { 
CRJFOLLOW SUIT, LEASH 

{CRHCR} {CR} {CR}EX/: 
.COMPUTER PLAYS 6Z "; 
{CR} (CR) [CR} (CR) (CR) { 
CR}YOU WIN BECAUSE TH 

{CR} {CR} {CR} {CR} {CR} { 

CR}IF YOU PLAY THE AS 

S"; 

{CR} {CR} {CR} {CR} {CR} { 

TRUMP THE COMPUTER CA 



{CR} (CR) (CR) {CR} | 
4X TO TRUMP YOUR 



CR}{ 

ACE 

TRY 



{CR} (CR) (CR)NOTE: 
COMPUTER LEAD AS"; 
(CR) {CR} (CR}{CR}{CR}{ 
OFTEN AS POSSIBLE SO 

{CR} (CR) (CR) (CR} (CR) { 

CR} {CR} {CR} {CR}PLAY T 

RD IN THAT"; 

{CR}{CR}{CR}{CR}{CR}( 

CR} {CR} (CR) SUIT OR T 

TO WIN" 

{CR} {CR} {CRJLOAD: ACE 

{CR} (CR)VALUE: A=ll,3 
Q=2 POINTS"; 
(CR}{CR] (CRHCRHCRH 
CR}(CR](CR){CR}2,4,5, 
POINT VALUE" 
{CR}{CR]PRESS Y TO PL 
E EXAMPLES" 
IFQ$="Y"THEN6 



60042 IFQ$="E"THEN60100 

60043 GOTO60041 

60100 PRINT" (SC) {HM}{CD} (CR}EX/:F 

OLLOW SUIT" 

60104 PRINT" (CR)COMPUTER PLAYS KZ 

YOU PLAY QZ" 
60107 PRINT"(CR}COMPUTER WINS." 
60109 PRINT 

60111 PRINT"{CR}EX/:FOLLOW SUIT H 
IGHER CARD" 
60113 PRINT"{CR}COMPUTER PLAYS 7X 

YOU PLAY AX" 

60115 PRINT"{CR}Y0U WIN YOU PLAYE 
D A GREATER VALUE CARD"; 

60116 PRINT" {CR} AND THE SAME SUIT 
it 

60117 PRINT 

60119 PRINT"{CR}EX/:LEASH PLAY, TO 

PLAY YOUR LOWEST CARD"; 
60121 PRINT"{CR}COMPUTER PLAYS JA 

YOU PLAY 4Z" 
60123 PRINT"{CR}COMPUTER WINS YOU 

DID NOT FOLLOW SUIT" 

60125 PRINT"(CR}YOU DID NOT TRUMP 
ii 

60128 PRINT 

60130 PRINT"{CR}EX/:TRUMP" 

60132 PRINT" (CR)COMPUTER PLAYS AX 

TRUMP IS S YOU PLAY" 
60134 PRINT"{CR}THE 2S YOU WIN YO 
U TRUMPED THE ACE" 
60150 PRINT 
60152 PRINT"(CR}PRESS P TO PLAY" 

60155 GETQ$:IFQ$="P"THEN6 

60156 GOTO 60155 
62000 RUN6 

62500 IFI=1THENXA=1:G0T062550 
62510 IFI=2THENXB=2:GOT062550 
62520 IFI=3THENXC=3 
62550 RETURN 

BUG REPELLENT LINE CODES 
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3: 
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CN 
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GM 
NE 
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PC 
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11:GF 
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17:GE 
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50:FB 
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BF 

EC 
CM 
DB 
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# 


131 


:LG 


LINE 
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133 
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134 
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1630 :IM 


LINE 


# 


7830 
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LINE # 8000: MO 
LINE # 8001: MO 
LINE # 8002 :IA 
LINE # 8003 :MG 
LINE # 8004 :E0 
LINE # 8005 :PH 
LINE # 8006 :JD 
LINE # 8007 :FJ 
LINE # 8008: ID 
LINE # 8009: MA 
LINE # 8012 :GL 
LINE # 8013 :CN 
LINE # 8015: LA 
LINE # 8016 :CF 
LINE # 8017:01 
LINE # 8018:AM 
LINE # 8019:JA 
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LINE # 8300: GJ 
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LINE # 8330:IM 
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LINE # 8999:IM 
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LINE # 9020 :0G 
LINE # 9030 :GN 
LINE # 9999:IM 
LINE # 10000:JL 
LINE # 10100:ID 
LINE # 10150:BK 
LINE # 10200: MP 
LINE # 10205 :BL 
LINE # 10210:FN 
LINE # 10220:HI 
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10705 


:GB 


LINE 


# 


12402 


:IM 


LINE 


# 


21102:MJ 


LINE 


# 


60022 


JP 


LINE 


# 


107 20 


:IK 


LINE 


# 


12 500 


DA 


LINE 


# 


21103:01 


LINE 


# 


60023 


■LC 


LINE 


# 


10740 


:IB 


LINE 


# 


12525 


IP 


LINE 


f 


21104 :KI 


LINE 


# 


60040 


GJ 


LINE 


# 


10760 


:GL 


LINE 


# 


12550 


IG 


LINE 


# 


21105:M0 


LINE 


# 


60041 


JA 


LINE 


# 


10780 


:FB 


LINE 


# 


12 600 


AE 


LINE 


# 


21110:IM 


LINE 


# 


60042 


■OH 


LINE 


# 


10800 


:DA 


LINE 


# 


■12625 


IC 


LINE 


# 


2 5000 :NP 


LINE 


# 


60043 


IK 


LINE 


# 


10900 


;LF 


LINE 


# 


12650 


IG 


LINE 


# 


25010:IF 


LINE 


# 


60100 


PF 


LINE 


# 


1090 5 


:KH 


LINE 


# 


14000 


ML 


LINE 


# 


25500: I J 


LINE 


ff 


60104 


:IJ 


LINE 


# 


10910 


:NN 


LINE 


# 


14005 


ID 


LINE 


# 


26000 :EB 


LINE 


# 


60107 


:0I 


LINE 


# 


10915 


:HN 


LINE 


# 


14010 


LA 


LINE 


# 


2 7000: MO 


LINE 


# 


60109 


: J J 


LINE 


# 


10916 


:ED 


LINE 


# 


14020 


GK 


LINE 


# 


27005: KM 


LINE 


# 


60111 


:KC 


LINE 


# 


10918 


:GJ 


LINE 


# 


14030 


FM 


LINE 


# 


27010: OH 


LINE 


# 


60113 


:KJ 


LINE 


# 


109 19 


.DB 


LINE 


# 


14040 


MP 


LINE 


# 


28000 :BH 


LINE 


# 


60115 


:HP 


LINE 


# 


109 20 


DA 


LINE 


# 


14042 


BE 


LINE 


# 


28010: EC 


LINE 


# 


60116 


: AH 


LINE 


# 


10922 


OD 


LINE 


# 


14046 


CB 


LINE 


# 


28020 :PG 


LINE 


# 


60117 


:JJ 


LINE 


# 


10925 


:KB 


LINE 


# 


14050 


IM 


LINE 


# 


28030 :BN 


LINE 


# 


60119 


:DB 


LINE 


# 


10930 


ML 


LINE 


# 


14100 


KA 


LINE 


# 


28040 :BI 


LINE 


# 


60121 


: AM 


LINE 


# 


10931 


JE 


LINE 


# 


14110 


FN 


LINE 


# 


28050 :FM 


LINE 


# 


6012 3 


: AA 


LINE 


# 


10932 


KC 


LINE 


# 


14120- 


KJ 


LINE 


# 


30000: JB 


LINE 


# 


60125 


:GN 


LINE 


# 


10933 


JA 


LINE 


# 


14130- 


IM 


LINE 


# 


30001 :MJ 


LINE 


# 


60128 
AHOY! 


:JJ 
85 



LINE # 60130 :KF 

LINE # 60132:JL 

LINE # 60134:HB 

LINE # 60150:JJ 

LINE # 60152:BF 

LINE # 60155:HL 

LINE # 60156:11 



LINE # 6 2000: MA 

LINE # 62500:11 

LINE # 62510:MD 

LINE # 62520:NK 

LINE # 62550:IM 

LINES: 456 



RAN DOM 
DISPLAY 

FROM PAGE 95 



IMPORTANT 

Before typing in an Ahoy! program, refer to the 
first two pages of the program listings section. 



10 G0SU 
100 G0S 



110 
120 
497 
498 



IF 

GOT 
REM 
REM 



B 500:G0SUB 600 

UB 640 

PEEK(197)=64 THEN 110 

100 

SET UP CHARACTER SET--64 



VERSION 

499 REM 

500 CH= 
:READ N 

501 REM 
FOR I=C 
N:NEXT 
50 2 REM 
HARACTE 
500 REM 
505 SP= 
OKE 1,0 

510 XC= 
AND 24 

511 REM 

28:P0KE 

520 SHS 

G":SH$( 

530 SH$ 

= "N" :LH 
p.. 

560 RE= 

IC VALU 
565 RE( 
E:REM U 

570 POK 

571 REM 



1024*14:F0R I=CH TO CH+135 
:P0KE I, N: NEXT 

VIC VERSION: 500 CH=7168: 
H TO CH+135:READ N:P0KE I, 

IF YOU DON'T USE CUSTOM C 
RS, REPLACE 500-511 WITH: 

CH+32*8:F0R I=SP TO SP+7:P 
:NEXT 

PEEK(53272):P0KE 53272,(XC 
) + 1 4 
VIC VERSION: 510 POKE 52, 
56,28:P0KE 36869,255 
( , ) ="@ABC" : SH$ ( , 1 ) ="DEF 
1 ,0) = "HI ?, :SH$(1,1) = "JK"' 
(2,0)="L":SH$(2,1)="M":BU$ 
$ = "0" + CHR$(17)+CHR$(157) + ,, 

38:RF=39:BE=23:BF=24:REM V 
ES ARE 20, 21, 20, 21 
0)=RE-3:RE(1)=RE-1:RE(2)=R 
SED IN MOVING DISPLAY ONLY 
E 53280, 11:P0KE 53281,11 
VIC VERSION: 570 POKE 368 



79,184 
•590 RETURN 
•597 REM 
•598 REM SET UP 

STRINGS 

• 599 REM 

•600 DIM VP$(BE) 
OR 1=1 TO BE:VP 
(17) :NEXT 

• 610 CL$(0)=CHR$ 
158) :CL$(2)=CHR 
(153) 

• 615 CL$(4)=CHR$ 

• 620 RETURN 

• 637 REM 

• 638 REM GENERAT 
■ 639 REM 

• 640 PRINT CHRS( 
T(BE/3) :N=INT(R 
INT(RE/6) 

• 645 M=INT(5*RND 

• 650 K=1+INT(RND 

700,670,710,67 
•740,670 

•660 NEXT: NEXT :R 
•670 RETURN 

• 700 PRINT VP$(I 
H$(0,N) : RETURN 

• 710 L=0:IF ( J + l 
(RND(9)*4) 

•715 PRINT VP$(I 

)SH$(1 ,N) :RETUR 
•720 L=0:IF (J+l 

(RND(9)*5) 
•725 PRINT VP$(I 

)SH$(2,N) :RETUR 
•730 L=0:IF (J+l 

(RND(9)*5) 
•735 PRINT VP$(I 

144)BU$:RETURN 
•740 L=0:IF (J+l 

(RND(9)*5) 
•745 PRINT VP$(I 

5)LH$:RETURN 
•1000 DATA 0,0,0 
•1008 DATA 0, 198 

55,255 

• 1016 DATA 0,48, 
,255 

• 1024 DATA 0,0,0 

• 1032 DATA 0,0,0 

• 1040 DATA 0,12, 
,255 



VERTICAL MOVEMENT 



:VP$( 
$(I) = 

(159) 
$(152 

(155) 



0)=CHR$(19) :F 
VP$(I-1)+CHR$ 

:CL$(1)=CHR$( 
) :CL$(3)=CHR$ 



E RANDOM SCREEN 



147) : 
ND(9) 

(9)) 
( 9 ) * 1 
0,720 

ETURN 

*3)TA 

)*6<= 

*3)TA 
N 
)*6< = 

*3)TA 
N 
)*6< = 

*3)TA 

)*6< = 

*3)TA 

,3,6, 
,198, 



FOR 1=0 TO IN 
*2) :F0R J=0 T 



0) :0N K GOSUB 
,670,730,670, 



B(6*J)CL$(M)S 

RE THEN L=INT 

B(6*J+L)CL$(M 

RE THEN L=INT 

B(6*J+L)CL$(M 

RE THEN L=INT 

B(6*J+L)CHR$( 

RE THEN L=INT 

B(6 :;! J + L)CHR$( 

255, 127,31 
255,170,255,2 



48,254,171,255,255 

,0,192,248,248,240 

,0,3,31,31,15 

12,127,213,255,255 
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. 1048 
255 

. 1056 
2 

• 1064 
. 1072 

• 1080 
. 1088 

• 1096 
.1104 

• 1112 
•1120 

• 1128 
255 



DATA 0,99,99,255,85,255,255, 
DATA 0,0,0,192,96,255,254,25 

DATA 0,0,0,0,6,15,122,63 
DATA 0,0,0,0,192,224,188,252 
DATA 0,0,0,0,3,7,61,63 
DATA 0,0,0,0,96,240,94,252 
DATA 0,0,0,0,8,28,247,127 
DATA 0,0,0,0,16,56,239,254 
DATA 0,0,0,0,28,28,8,62 
DATA 60 ,66,66, 60 , 60 ,60,52, 60 
DATA 60 , 44 , 60 ,60,126, 90 , 255 , 



BUG REPELLENT LINE CODES 
FOR RANDOM DISPLAY 



LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 



10:IL 
100:CK 
110:IG 
120:CF 
497:JD 
498 :JD 
499:JD 
500 :BD 
501 :GN 
502 :FM 
505: LP 
5 1 : DN 
511:NB 
520 :FB 
530: EH 
560: LA 
565:BC 
570 :LK 
571:NP 
590 :IM 
597:JD 
598:AH 
599:JD 
600 :GP 
610: AH 
615:KH 
620: IM 
637: JD 
638 :JF 
639:JD 
640 :NA 



LINE # 
LINE # 
LIME # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINES: 



645 

650 

660 

670 

7 00 

710 

715 

7 20 

725 

7 30 

735 

740 

745: 

1000 

1008 

1016 

1024 

1032 

1040 

1048 

1056 

1064 

107 2 

1080 

1088: ME 

1096:AE 

1104:MG 

1112:00 

1120:DJ 

1128:D0 

61 



FO 

CF 

AE 

IM 

MB 

JC 

EL 

JD 

JI 

JD 

BF 

JD 

FF 
PI 
CL 
NC 
CA 
NP 
HA 
HF 
BM 
PK 
BE 
OP 



MOVING 
DISPLAY 

FROM PAGE 95 



PROGRAMMERS! Ahoy! pays competitive rates 
for 64 and VIC programs. Send us yours on disk 
or tape, with a stamped, self-addressed envelope. 



10 
80 
97 
98 
99 
100 



GOSUB 
GOSUB 
REM 

REM MAIN 
REM 
FOR K=0 



500: GOSUB 
640 



LOOP 



600 



TO 6:I=X(K) 



IF HP(I)>RE 
HP(I)=RE(I) 

DI(I 



105 HP(I)=HP(I)+DI(I) 

(I) THEN DI(I)=-DI(I) 

:G0T0 115 

110 IF HP(I)=-1 THEN HP(I)=0 

)=-DI(I) 

115 D(I)=DI(I) :IF D(I)=-1 THEN 

I)-0 

125 PRINT VP$(VP(I))TAB(HP(I))CL$ 

(I)SH$(I,D(I)) 

150 NEXT K 

160 GOTO 100 

497 REM 

498 REM SET UP CHARACTER SET--64 
VERSION 

499 REM 

500 CH=1024*14 
:READ N:POKE I 

501 REM VIC 
FOR I=CH TO 
N:NEXT 

505 SP=CH+32*8:F0R 
OKE 1,0: NEXT 

510 XC=PEEK(53272):POKE 53272, (PE 
EK(53272)AND240)+14 

511 REM VIC VERSION: 510 POKE 52, 
28:P0KE 56,28:P0KE 36869,255 

520 SH$(0,0) = "@ABC " :SH$(0, 1 ) = " D 

EFG":SH$(1 ,0)="HI " : SH$( 1 , 1 ) =" JK 
it 

530 SH$(2,0) = "L ,1 :SH$(2,1) = " M":B 

U$ = "N'*:LH$ = "0{CD) (CL}P" 

560 RE=38:RF=39:BE=23:BF=24:REM V 

IC VALUES ARE 20,21,21,22 

565 RE(0)=RE-3:RE(1)=RE-1:RE(2)=R 

E 

570 POKE 53280, 11 :POKE 53281,11 

571 REM VIC VERSION: 570 POKE 368 
79,184 

590 RETURN 
597 REM 



FOR I=CH TO CH+135 

N:NEXT 
VERSION: 500 CH=7168: 
CH+135:READ N:P0KE I, 

I=SP TO SP+7:P 
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.598 REM SET UP VERTICAL MOVEMENT 

STRINGS 
.599 REM 

•600 DIM VP$(BE) :VP$(0)="{HM}":FOR 
1 = 1 TO BE:VP$(I)=VP$(I-l) + "{CD} , ' 

:NEXT 

610 CL$(0)="{CY}":CL$(1)="{YL}" :C 

L$ ( 2 ) = " f G2 1 " 
•615 VP(0)=4:VP(1)=10:VP(2)=16 
•620 FOR 1=0 TO 2 : HP( I )=1+INT(RND( 

9)*(RE(I)-2)) : J=INT(RND(9)*2):IF 

J=0 THEN J=-l 
•625 DI(I)=J:NEXT 
•630X(0)=0:X(1)=1:X(2)=2:X(3)=2:X 

(4)=1:X(5)=2:X(6)=2 
•635 RETURN 
•637 REM 

•638 REM GENERATE RANDOM SCREEN 
•639 REM 
•640 PRINT "(SC)":F0R 1=0 TO INT(B 

E/6) :FOR J-0 TO INT(RE/2) 
•650 K=1+INT(RND(9)*9) :0N K GOSUB 
• 700 , 670 , 670 , 7 1 , 670 , 7 1 , 7 1 , 670 , 7 

10 
•660 NEXT:NEXT:RETURN 
•670 RETURN 
•700 PRINT VP$(I*6)TAB(2*J)"{WH]"L 

H$:RETURN 
•710 PRINT VP$(I*6)TAB(2*J)"(BK}(C 

D)"BU$:RETURN 



BUG REPELLENT LINE CODES 
FOR MOVING DISPLAY 



0,0,3,6,255, 12 7,31 
198,198,255,170,255,2 



DATA 
DATA 
DATA 



0,0, 
0,0, 



192,248,248,240 
3,31 ,31 , 15 



12,12,127,213,255,255 



•1000 DATA 
•1008 DATA 

55,255 
•1016 DATA 0,48,48,254,171,255,255 

,255 

• 1024 
•1032 
•1040 

,255 
•1048 DATA 0,99,99,255,85,255,255 

255 
.1056 

2 
.1064 
•1072 
•1080 

• 1088 
•1096 
•1104 
•1112 

• 1120 
•1128 

255 



LINE # 
LINE # 
LINE # 
LINE § 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE H 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 
LINE # 



10:IL 

80:CK 
97: JD 
98:PK 
99:JD 
100:NH 
105: JK 
110:CP 
115:AN 
125:JL 
150: MP 
160:CF 
497:JD 
498: JD 
499:JD 
500 :BD 
501 :GN 
505: LP 
510:DB 
511 :NB 
5 20 :BD 
5 30 :CB 
560 :E0 
565 :0E 
570 :LK 
571 :NP 
590 :IM 
597: JD 
598:AH 
599:JD 
600: PL 
610 :BD 



I : 



LINE 


# 


615:MM 


LINE 


# 


620: ME 


LINE 


# 


625:NJ 


LINE 


§ 


630 :GH 


LINE 


§ 


635:IM 


LINE 


# 


637: JD 


LINE 


# 


638:JF 


LINE 


# 


639:JD 


LINE 


# 


640 :HH 


LINE 


# 


650 :CJ 


LINE 


# 


660 :AE 


LINE 


# 


670 :IM 


LINE 


# 


700 :LF 


LINE 


# 


710:GP 


LINE 


# 


1000: PI 


LINE 


# 


1008:CL 


LINE 


# 


1016:NC 


LINE 


# 


1024:CA 


LINE 


# 


1032:NP 


LINE 


# 


1040: HA 


LINE 


# 


1048:HF 


LINE 


# 


1056:BM 


LINE 


# 


1064:PK 


LINE 


# 


1072:BE 


LINE 


# 


1080: OP 


LINE 


f 


1088:ME 


LINE 


# 


1096: AE 


LINE 


# 


1104:MG 


LINE 


# 


1112:00 


LINE 


# 


1120:DJ 


LINE 


# 


11 28: DO 


LINES: 


63 



j_Cl 



CHECKLIST 



DATA 0,0,0,192,96,255,254,25 FROM PAGE 20 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



0,6,15,122,63 
0,192,224, 188,252 
0,3,7,61,63 
0,96,240,94,252 
0,8,28,247,127 
0,16,56,239,254 
0,0,0,0,28,28,8,62 
60,66,66,60,60,60,52,60 
60,44,60,60,126,90,255, 



0,0, 
, , 
0,0, 
0,0, 
0,0, 
0,0,0 



IMPORTANT 

Before typing in an Ahoy! program, refer to the 
first two pages of the program listings section. 



10 G0SUB7OO : C0=53280 : SE=54272 : POK 

ZSE+24,15 

20 DIMI $ ( 1 , 21 ) , G$ ( 10 , 23 ) , TI $ ( 1 , 

23) ,TG$(10,23) ,R$(24) 

25 R$(0)="IHM}":F0RI=1T024:R$(I)= 
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R$(I-1)+"{CD)":NEXT 

26 POKECO+2, 14:P0KEC0+3, 13:P0KEC0 

+ A,5 

30 ES$=R$(24)+" 

ti 

32 A$=" ITEM ":GOSUB1000: 
A2$=B$:A3$=" C " 

33 A$ = " WT ":GOSUB1000:A4$=B$ 

34 ERS=R$(20)+" " 

35 L$=CHR$(32):F0RI=1T014:C2$=L$+ 
C2 $: NEXT: FORI =1T04 : C4$=C4$+L$ : NEX 
T 

36 D$=CHR$(160) :C3$=D$+D$+D$ : CX$= 
C3$+C3$+C3$ 

37 CL$=C4$+C4$+C4$ 

38 A$=" WHAT ITEM? " : GOSUB1000 : S2 
$=B$:AS="WEIGHT OF " : G0SUB1000: S3 
$ = B$ 

39 AS=" CODE FOR " :G0SUB1000:S4$= 
B$ 

40 AS=" CHOSE ANY " : GOSUB1000 : Sl$ 
=B$:A$=" DELETE ANY " : G0SUB1 000 : S 
D$=B$ 

41 A$=" Fl-DEL ":GOSUB1000:F1$=B 
S:A$=" F2-CHNG " : GOSUB1000 : F2$=B$ 

43 A$ = " F3-EXTR " : G0SUB1000 : F3$=B 
$:A$=" F4-T0TL " : G0SUB1000 : F4$=B$ 

44 A$=" F5-NEW " : G0SUB1000 : F5$=B 
$:A$=" F6-C0PY " : G0SUB1000 : F6$=B$ 

45 A$ = " F7-NEXT " : G0SUB1000 : F7$ = B 
$:A$=" F8-LIST " : G0SUB1000 : F8$=B$ 

46 A$=" E-END " : G0SUB1000 : E1$=B 
$ 

60 READ C$:IFC$="END"THEN115 

70 M=M+1 :C$(M)=C$:N=0 

100 READI$,NO:IFI$="0"THENN(M)=N: 

GOT060 

110 N=N+1:I$(M,N)=I$:P=4:G0SUB110 

0:G$(M,N)=A$:GOT0100 

115 PRINT" {SC}":POKE53265, PEEK (53 

265)OR64 

120 POKEC0,3:POKECO+l,3:F0R X=1T0 

M:GOSUB500:PRINT"{WH}"R$(20)S1$; 

130 PRINTR$(24)F1$TAB(10)F3$TAB(2 

0)F5$TAB(30)F7$; :G0SUB800 

150 GETK$:IFK$=""THEN150 

155 PR INTER $; : IFK$=" {F7 ) "THEN 260 

156 IFK$="{F1]"THENGOSUB3000:PRIN 
T"{WH)"R$(20)S1$;G0T0150 

• 158 IFK$ = n {F5}"THENGOSUB3500:PRIN 

T"{WH}"R$(20)S1$:G0T0150 
•159 IFK$="{F3)"THENG0SUB2500:PRIN 

T"(WH}"R$(20)S1$:G0T0150 



160 K=ASC(K$)-64:IFK>N(X)0RK<1THE 

NG0SUB2100:G0T0150 

170 IFI$(X,K)=TI$(X,K)THENG0SUB21 

00: GOTO 150 

190 GOSUB400:GOT0150 

260 NEXTX:G0T04000 

400 PRINT"(RV) {LG}"R$(1+K)TAB(13) 

D$CHR$(K+96)D$; 

402 IFCHTHEN410 

405 G0SUB2000 

410 J$=I$(X,K) :I$=LEFT$(J$,LEN(J$ 

)-D 

420 PRINT"(RV} {GN } "TAB( 1 7 ) 1$ ; :A$= 

RIGHT$( J$, 1) :G0SUB1000 

430 PRINT"{RV} { LG } "TAB(31 )B$ ;TAB( 

33)"{GN}"G$(X,K):IFCHTHENRETURN 

440 FT=FT+VAL(G$(X,K)) :GOSUB800 

470 S(X)=S(X)+VAL(G$(X,K)):NO=S(X 

) :P = 5:G0SUB1100:G0SUB1000 

475 PRINTR$(22)TAB(31)D$B$D$ 

480 TI$(X,K)=I$(X,K):TG$(X,K)=G$( 

X,K) :RETURN 

500 A$=" "+CHR$(X+64):G0SUB1000:P 

RINT" {SC} {WH}"TAB(13)B$D$" {BK}{RV 

)"A2$"(BK}"A3$"{BK}' , A4$L$ 

520 Z$="": A$=C$(X) : F0RK=1T0LEN( A$ 

)+2 :Z$=Z$+D$: NEXT: PRINT" { HM } {WH} { 

RV}"Z$ 

522 G0SUB1000 : PRINT" { RV } "D$B$D$ : P 

RINT"{RV}"Z$ 

530 PRINT"{HM) {CD)"; : F0RI=1T021 : P 

RINTTAB(13)"{RV)"C3$C2$C3$C4$D$:N 

EXT 

540 PRINT"(HM) (CD) {CD}"; :F0RY=1T0 

N(X):A$=CHR$(Y + 64) : G0SUB1000: PR IN 

TTAB(14)"{RV}{WH)"B$; 

545 J$=I$(X,Y) :I$=LEFT$(J$,LEN(J$ 

)-D 

550 PRINT" {RV] { Gl ) "TAB( 1 7) 1$ ; :A$= 

RIGHT$( J$ , 1 ) :GOSUB1000 

560 PRINT"{RV} { WH ) "TAB( 31 )B$TAB(3 

3)" (Gl J"G$(X,Y): NEXT: RETURN 

700 POKE53280, 0:P0KE53281 ,0:PRINT 

"{SC){LG){CD}{CD}{CD}{CD}{CD}{CD} 

{CD}";:A$= U " 

715 F0RI=1T07:READA$:PRINTTAB(13) 

A$:NEXT:RETURN 

750 DATA"{RV) [ROJP {RV} {RO} {RV 

} {RO} {RV} {RO}P {RV} {RO}P [RV] 

{RO}N","{RV} {RO} {RV} {RO}C{RV 
} {RO} {RV} {RO}C {RV} {RO} {RV} 

{RO}M" 
760 DATA n {RV) {RO}g {RV} {RO} {RV 
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} {RO] (RV) {RO)S (RV) {R0}@ {RV} .3010 GETE$ : IFE$=""THEN3010 

{RO}N", -3015 E=ASC(E$)-64:IFE=-51THEN3090 

770 DATA" {RV] { R0]_ (RV) {RO} »3020 IFE<OORE>N ( X )THENG0SUB2100 : G 
{RV}£(RO)MY{RV}_JRn}Y"," {RV} { 0T03010 
RO) {RV} (RO) *{KV]*{R0] (RV) " , -3030 IFTI$( X , E) <>I$ ( X , E)THENGOSUB 

{RV} {R0]g {RV} {RO} hU tUV} 2 100 : G0T03010 
" .3035 S(X)=S(X)-VAL(G$(X,E)) :FT=FT 

780 RETURN -VAL(G$ (X , E) ) : TI$(X , E) = "" 

800 PRINTRS(5)"{BL} TOTAL " .3055 PRINT" { HM } [Gl ]";: A$=CHRS( E+6 
810 PRINTTAB(l)C3$C3$D$:NO=FT:P=5 4) : G0SUB1000 : PRINTR$ ( E+ 1 )T AB( 14 ) " 
:GOSUB1100:GOSUB1000 {RV} {WH]"B$; 

820 PRINTTAB(1)"{WH}"D$B$D$:PRINT -3056 J$=I$(X , E) : I$=LEFT$( J$ , LEN( J 
TAB(1)C3$C3$D$:RETURN $)-l) 

1000 B$="":F0RJ=1T0LEN(A$) :B=ASC( .3057 PRINT" {RV } { Gl } "TAB( 1 7 ) 1$ ; : A$ 
MID$(A$, J, 1)) :B=B+32:B=B-96*(B<96 =RIGHT$(J$, 1) :G0SUB1000 
) .3058 PRINT"{RV} { WH } "TAB( 31 )B$ ; TAB 

1010 B$=B$+CHR$(B) :NEXT:RETURN ( 33 ) " { G 1 } "G$( X , E) 

1100 A$=STR$(NO) :LN=LEN(A$)-1 -3060 N0=S(X ) : P=4 : G0SUB1 100: G0SUB1 
1110 F0RJ=1T0P-LN:A$=" "+A$:NEXT: 000 : PRINT" {WH } "R$ ( 22 )TAB( 33)B$ :G0 
A$=RIGHT$(A$,P) :RETURN SUB800 

2000 POKESE+5,0:POKESE+6,247:POKE .3090 POKECO , 3 : PRINT" { WH } "R$ ( 20 ) SI 
SE+4 ,17: POKESE+l , 50 : POKESE , $': RETURN 

2010 F0RT=lT099:NEXT:P0KESE+4, 16: «3500 POKECO , 4 : PRINTR$( 20) " { WH } "S2 
RETURN $ 

2100 POKESE+5,45:POKESE+6, 165:P0K . 3505 GETA$ : IFA$=""THEN3505 
ESE+4,33:POKESE+l,6:POKESE,5 * 3506 IFASC( A$)=l 3THEN3590 
2110 FORT=lT0150:NEXT:POKESE+4,32 -3510 K=ASC( A$ )-64 : IFK>N ( X )0RK<1TH 
: POKESE+ 1,0: POKESE , 80 : RETURN ENG0SUB2100 : G0T03505 
2500 I$="":N(X)=N(X)+1:P0KEC0,2 • 3520 IFI$(X , K )=TI$( X , K)THENG0SUB2 
2502 PRINTR$(23) ; :INPUT"{G1} EXTR 100:G0T03505 
A ITSM";I$ .3535 G0SUB1000 : PRINT" { WH } "ER$R$ ( 2 

2504 IFI$=""THENP0KEC0,3:PRINTR$( 2) S3$BS" { G 1 } " : INPUTW$ 

23)" ":RETURN O540 N0=VAL( W$ ) : P=4 : G0SUB1 100 : G$( 

2505 IFASC(I$)=13THENP0KEC0,3:RET X , K)=A$ : PRINT n >$( 2 1 ) " 

URN .3550 PRINT ,: {WH) M R$(23)" "R$( 

2507 IFLEN(I$)>12THENI$ = LEFT$(I$, 22 ) S4$B$" {G 1 } " ; 

12) -3555 GETA$:IFA$=""THEN3555 

2510 I$(X,N(X))=I$+"X":PRINTR$(23 '3556 IFASC( A$ )=13THEN3580 

)" ".3560 I$(X,K)=LEFT$(I$(X,K),LEN(I$ 

2520 PRINTR$(23);:INPUT" WEIGHT"; (X,K))-1)+A$ 

N0:P=4:G0SUB1100:G$(X,N(X))=A$ -3565 GOSUB1000 : PRINT" {WH } { RV } "R$( 

2530 PRINTR$(23)" K+l )TAB( 31 ) B$ 

•3580 PRINT"{UV}{G.1}*'a$(K+1)TaB(33 

2540 PRINTR$(N(X) + 1);:A$=CHR$(N(X )G$( X , K) : PRINTR$( 21 ) " 
)+64):G0SUB1000:PRINTTAB(14)"{RV} -3590 POKECO , 3: PRINT" (WE ] "R$ ( 20) SI 

WH]"B$; $R$(22)" ":RETURN 

2550 PRINT'MRV} {Gl } "TAB( 17 ) 1$ ; :A$ .4000 PRINT" { SC )": POKECO , 3 : POKECO+ 
="X":GOSUB1000 1 , 1 : P0KEC0+2 , 14 : POKECO+3 , 15:P0KEC 

2 590 " PRINT" {RV} { WH } "TAB( 31 ) B$ ;TAB 0+4,12 

(33)"(Gl)"G$(X,N(X)):GQSUB2OO0:P0 -4010 A$=" CATEGORY ":G0SUB1000 
KECO 3-RETURN : T2$=B$ :T3$="SUBT0TAL" 

. 3000 POKECO, 10:PRINT"{WH}"R$(20)S. 4015 PRINT" { RV ] {G3 } "R$ ( 2)TAB( 7 )L$ 
p $ . L$L$L$T2$"{G1}"T3$: 

90 AHOY! 



4020 FOR I=lT0M+2: PRINT" (RVJ"R$(I+ 

2)TAB(7)D$C3$C4$C4$C4$L$C3$C3$D$D 

$:NEXT 

4030 F0RI=1T0M:N0=S(I) :P=5:G0SUB1 

100 :GOSUB 1000 :N2$=B$ 

4040 N0=I:P=1 : G0SUB1 100 : G0SUB1000 

:N1$=B$ 

4050 PRINT"{RV] { WH ] "R$( 3+1 )TAB( 8) 

N1$D$TAB(12)C$(I)TAB(26)N2$:NEXT 

4055 A$ = " FINAL TOTAL ":G0SUB1000 

:F$=B$ 

4060 NO=FT : P=6 : G0SUB1 100 : G0SUB10O 

0:FTS=B$ 

4090 PRINT" {WH} { RV } "R$( 20) TAB ( 10) 

CX$CX$D$D$ : PRINT" {RV}"TAB( 10) F$FT 

SDS 

4100 PRINT" {RV}"TAB(10)CX$CX$D$D$ 

4120 PRINT" {WH)"R$(24)F2$TAB(10)F 

6$TAB(20)F8$TAB(30)E1$; 

4130 GETA$:IFA$=""THEN4130 

4140 IFA$="{F2}"THEN6000 

4150 IFA$="E"THENPRINT"{HM}":END 

4160 IFA$="{F8}"THEN5000 

4161 IFA$="{F6]"THEN7000 
4170 GOSUB2100:GOT04130 

5000 PRINTES$"{HM}"; : P0KEC0+3 , 14 : 
POKECO+3 , 13 : POKECO+4 , 5 : POKECO , 1 
5005 TB=1:C=0:F0RI=1T023:PRINT" { 
RV)"CL$D$CL$D$CL$:NEXT 

5010 PRINT"{HM}"; : F0RX=1T0M : A$=C$ 
(X) :C = C+1 :IFC=23THENTB=TB+13:C=1: 
PRINT" {HM}"; 

5011 0$=" "+C$(X) :F0RI=LEN(O$)TO 
11:0$=6$+" ":NEXT:PRINT"{BL}"TAB( 
TB)0$"{G1}" 

5015 F0RY=1T0N(X) : IFTI$ ( X , Y ) = ""TH 
EN 5050 

5016 C=C+1:IFC=24THENTB=TB+13:C=1 
:PRINT"{HM}"; 

5020 I$=TI$(X,Y) :IFLEN(I$)>12THEN 

I$=LEFT$(I$,12) 

5035 PRINT"{RV}"TAB(TB)I$ 

5050 NEXTY,X:PRINTR$(24)" {WH)"F2$ 

TAB(10)F4$TAB(20)F6$TAB(30)E1$; 

5060 GETA$:IFA$=""THEN5060 

5070 IFA$="E"THENPRINT" {HM}" : END 

5080 IFA$="{F2}"THEN6000 

5090 IFA$="{F4}"THEN4000 

5095 IFA$="{F6}"THEN7000 

5099 GOSUB2100:G0TO506O 

6000 POKECO, 3: PRINT" {SC} {CD} {CD} { 

CD} (CD) {CD} {G1}"TAB(12)"WHAT CATE 

GORY?":PRINT 



Page 
No. 



Company 



Reader 
Svc. No. 



49 Academy Software I 

50 Counterpoint Software, Inc. 2 

57 Creative Equipment 3 
43 Micro Systems Development 4 

64 Davidson & Associates 5 

65 Spinnaker Software 6 

65 Commodore Software 7 

66 Sierra On-Line 8 
66 Spinnaker Software 9 

58 Spinnaker Software 10 
30-35 Pnrtecto Enterprizes 11-16 
5 Cardco, Inc. 17-19 

5 LETCO 20 

6 MB International, Inc. 21 

6 Sound Expansions 22 

7 HollisCraft 23 

7 TOTL Software 24 

15 Atari 25 

16 Broderbund 26 
22 TOTL Software 27 
18 Amtype Corporation 28 

51 Advanced Ideas 29 
54 Insta Software 30 
53 Event Horizon Software 31 
20 Computer Creations, Inc. 32 
46 Eastern House 33 
29 Microtechnic Solutions, Inc. 34 
C-4 Kiwisoft 35 
C-3 Cardco 36 
61 Micro Ware 37 

52 Cadmean Corporation 38 

8 HP Books 39 
24 Transactor Publishing 40 
26 INDUS-TOOL 41 

9 MUSE Software 42 
18 Superior Micro Systems 43 

10 Micro Ware 44 
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. 6005 F0RI=1T0M:PRINTTAB(12)CHR$(I • 7130 
+64)" "C$(I):NEXT )" "B 

6010 GETA$:IFA$ = l,H THEN6'Jl.O »7140 
6020 IFASC(A$)<650RASC(A$)>M+64TH $S$TG 
EN6010 • 7160 

6026 CH = -l:P0KEC0+2,14:POKECO + 3,l • 7165 
3:P0KEC0+4,5 AL"CH 

6030 P0KEC0+1 ,3:X=ASC(A$)-64:G0SU • 7170 
B500 " 9000 

6040 PRINT"(WH)"R$(24)F1$TAB(10)F 490, S 
3$TAB(20)F4$TAB(30)F5$; 1775 

6050 FORK = lT0N(X) :IFTI$(X,K)<>""T • 9010 
HENGOSUB400 ,1820 

6051 NEXT:GOSUB800:NO=S(X):P = 5:GO . 9020 
SUB1100;G0SUB1000:PRINTR$(22)TAB( ACKET 
31)D$B$D$ S ,60 
6060 CH=0:PRINT"{WH}"R$(20)S1$ • 9030 
6150 GETK$:IFK$=""THEN6150 .9080 

6155 PRINTERS; : IFK$=" { F4 } "THEN400 60, SP 
HLIGH 

6156 IFK$="(F1)"THENG0SUB3000:G0T .9085 
06150 »9090 

6157 IFK$="(F5)"THENG0SUB3500:G0T LS ,4 
06150 . 9110 

6158 IFK$="(F3)"THENG0SUB2500:G0T 2,320 
06150 .9200 
6160 K = ASC(KS)-64:IFK>N(X)0RK<0TH • 9300 
ENGOSUB2100:GOT06150 255 
6170 IFI$(X,K)=TI$(X,K)THENG0SUB2 • 9350 
100:GOT06150 
6180 G0SUB400:G0T06150 
7000 POKEC0, 1:P0KEC0+1 ,1 : PRINT" (S 
C)":F0RI=lT05:PRINT:NEXT:L$=CHR$t LINE 
13) :S$=CHR$(32) LINE 
7010 ST$=CHR$(15):F0RI'=1T075:BL$ = LINE 
BL$+CHR$(99):NEXT LINE 
7020 INPUT" (BK)TITLE FOR HARD COP LINE 
Y";H$ LINE 
7030 BX$=CHR$(8):F0RI=1T07:READA: LINE 
BX$=BX$+CHR$(A) :NEXT:BX$=BX$+ST$ LINE 
7040 F0RI=1T04:READT$:T$(I)=CHR$( LINE 
16)+T$:NEXT LINE 
7100 OPEN4,4:PRINT#4,CHR$(16)"25 LINE 
"CHR$(14)H$ST$ LINE 
7105 PRINW, L$CHR$(18)BL$CHR$(14 LINE 
6)L$L$ LINE 
7110 FORI=1TOM:NO=S(I):P=5:GOSUB1 LINE 
100:GOSUB1100 LINE 
7115 PRINT#4,CHR$(14)C$(I)CHR$(16 LINE 
)"15"A$ST$L$ LINE 
7120 G=0:F0RJ=1T0N(I) :IFTI$(I, J)= LINE 
""THEN7160 LINE 
7125 G=G+1: IFG=3THENG=1 :PRINT#4 LINE 



I$=TI$(I,J):PRINT#4,T$(2*G-1 
X$S$LEFT$(I$,LEN(I$)-1) ; 
PRINT#4,T$(2*G)RIGHT$(I$,1)S 

$(I,J); 

NEXT:PRINT#4,L$L$BL$:NEXT 

PRINT#4,L$CHR$(14)"FINAL TOT 

R$(16)"15"FT;ST$ 

PK1NT#4:CL0SE4:END 

DATA SHELTER ,AIR MATTRESS , 

LPG. BAG L, 1000, SLPG. BAG H, 

DATA GROUNDSHEET ,225, TENT * 
,0,0 

DATA CLOTHING, TIGHTS *,275,J 
*, 260, SOCKS ,35, NYLON SHORT 

DATAPANTS ,340,0,0 

DATA ACCESSORY, LOCK+CABLE ,3 

ARE TUBE ,70, TOOLS , 205.FLAS 

T , 50 

DATASWISSKNIFE ,70,0,0 

DATA COOKWARE.CUP ,10,UTENSI 

5, POT ,250, BOWL ,60 

DATA STOVE G , 280 , CARTRIDGES 

,0,0 

DATAEND 

DATA 2 55, 193 , 193 , 1 93 , 1 93 , 193, 

DATA08,24,44,60 



BUG REPELLENT 
FOR CHECKLIST 



LINE CODES 



10: 

20: 

25: 

26: 

30: 

32; 

33: 

34 

35 

36 

37 



JH 
GN 
PA 
NH 
NL 
CM 
KP 
BA 
LG 
ME 
JB 



38:EM 
39:GC 



40: 
41 : 
43: 
44: 

45: 
46: 
60: 

7 



AB 
JB 

ED 
MB 
GI 

LL 
FD 

LF 



LINE 

LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 

# 
# 

# 
# 
# 
# 
# 

# 
# 
# 
# 

# 
# 
# 

# 
# 



100: EN 

110:0A 

115:JH 

120:FC 

130:IM 

150:GJ 

155: MI 

156:P0 

158:CJ 

159:OL 

160 

170 

190 

2 60 

400 

402 

405 

410 

4 20 

430 

440 



FL 
MI 
HM 
HA 
CG 
FF 
FL 
JE 
IJ 
EG 
IC 
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LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 

l:ine 

LINE 

LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
L I. N E 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



470: FD 
475 :FK 
480: EN 
500: DC 
5 20 



522: 
5 30: 
540: 
545: 
5 50: 
560: 
7 00: 
715: 
7 50: 
760: 
7 70: 
7 80: 
800: 
810: 
820: 
1000 
1010 
1100 
1110 
2 000 
2010 
2100 
2110 
2500 
2502 
2 504 
2 505 
2507 
2510 
2520 
2530 
2 540 
2 550 

2 590 
3000 

3 010 
3015 
3020 
3030 
3035 
3055 
3056 
3057 
3058 
3060 
3090 
3 500 
3505 



P0 
DP 

OB 

MJ 

PK 

LP 

DE 

LO 

KC 

JE 

DP 

AM 

IM 

BB 

CP 

DH 

:EE 

:DC 

:0L 

:B0 

:EF 

:EH 

:HB 

:0C 

:CL 

:HI 

:IM 

: AF 

: AP 

:IN 

:EP 

:PA 

:IP 

: AA 

:PC 

:0J 

:LI 

:BM 

:PN 

:NL 

:MP 

:PB 

:E0 

:LP 

:BL 

:EL 

:IP 

:BG 

:LB 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 

LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 
# 
# 

# 
# 
# 
# 

# 
# 
# 
# 
# 
# 
# 
# 
# 
# 

§ 

# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 

# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
§ 
# 
# 



3 506 

3 510: 

3520: 
3535: 
3540: 
3550: 
3555: 
3556: 
3560; 
3565: 
3 580: 
3590: 



00 
10 
15 
20 
30 
40 
50 
55 
60 
90 
00 
20 
30 
40 
50 
60 
61 
70 
00 

05 
10 

11 

15 

16 

20 

35 

50 

60 

7 

80 

90 

95 

99 

00 

05 

10 

20 

26: 
30: 
40: 

50: 



KP 
DK 
MG 
MD 
KJ 
HB 
LE 
JC 
GB 
BO 
OH 
IA 
KO 
GN 
DN 
KB 
KC 
BG 
CE 
NM 
ED 
DD 
HF 
OF, 
Ll-i 
PF 
JP 
PF 
NC 
OA 
AO 

NI 

HK 

ML 
HO 
NK 
CL 
LL 
JL 
KF 
JP 
PF 
PM 
NC 
NB 
BM 
KN 
KD 
ID 
IL 
DO 
DP 
OB 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 

# 

# 
# 
# 

# 



6051: 

6060; 

6150: 

6155; 

6156: 

6157: 

6158: 

6160: 

617 

6180: 

7000: 

7 010 

7020: 

7030: 

7040: 

7 1 00 ; 

7105; 

7110: 

7115: 



EJ 
GJ 
LE 
OE 
NI 
EB 
OD 
NA 
LF 
KC 
HL 
GI 
OG 
IA 
OE 
EP 
BB 
HD 
KH 



LINE 

LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINES 



7120: 

7125: 

7130: 

7140: 

7160: 

7165; 

7170: 

9000: 

9010; 

9020: 

9030; 

9080; 

9085; 

9090; 

9110 

9200; 

9300: 

9350: 

185 



KH 
BB 
00 
AG 
AC 
EL 
KH 
IH 
FP 
EG 
HI 
CK 
AK 
JC 
LH 
GB 
PN 
LC 



RENUMBERING 

FROM PAGE 29 



IMPORTANT 

Before typing in an Ahoy! program, refer to the 
first two pages of the program listings section. 



'100 REM 2-17-84 

110 DIM L(2000) 
•120 PRINT" {SC] {CD}" ; SPC( 9) ; "RENUH 

BER UTILITY":PRINT 
•130 PRINTSPC(8)"(C) COPYRIGHT 198 

4":PRINTSPC(11) ; "ANTHONY WOOD" 
■140 PRINT:INPUT"NAME OF PROGRAM T 

RENUMBER" ;I$ 

150 INPUT"NAME OF RENUMBERED PROG 

RAM"; PS 
>160 INPUT"FIRST LINE NUMBER? 100{ 

CL] (CL] {CL} {CL] (CL]";S 
•170 INPUT"INCREMENT? 10{CL]{CL]{C 

L] (CL]";I:PRINT 
.180 DEF FNMB ( X)=INT(X/256) 

190 DEF FNLB (X)=X-FNMB( X )*256 
'200 PRINT"PASS ONE . . . " : 0PEN15 , 8, 1 

5, "10" 

210 OPEN2,8,2 ) I$+",P,R" 
' 220 INPUT#15,E,ER$,A > A:IFEO0THEN 

PRINTER$:CL0SE15:END 
-230 GOSUB 490: A=V 
'240 GOSUB 490:IFV=0THEN 280 
'250 E=V:G0SUB 490 : L( K) =V : K=K+1 : A= 
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A+4 

260 IFA=ETHEN 240 

270 GET#2,A$:A=A+1:G0T0 260 

280 CLOSE 2:PRINT"PASS TWO..." 

290 OPEN2,8 J 2,I$+" I P,R":OPEN3,8,3 

,P$ + ,I ,P,W":INPUT#15,E,ER$,A,A 

300 IFEO0THENPRINTER$:CL0SE2:CL0 

SE15:END 

310 GOSUB 490: A=V : PRINT#3 , A$ ; B$ ; : 

C=0 

3 20 

330 

340 

345 

TO 



BUG REPELLENT 
FOR RENUMBERI 



LINE CODES 
NG UTILITY 



REF 



REM READ LINE & CHANGE 

GOSUB 490:G0SUB 490:L$= 

GET#2,A$ 

IFA$=CHR$(137)THENG0SUB500:G0 
345 

350 IFA$=CHR$(141)THENGOSUB500:GO 
TO 345 

360 IFA$=CHR$(167)THENGOSUB500:G0 
T0345 

370 IFLEN(A$)=OTHEN 430 
380 IFA$OCHR$(24)THENL$ = L$ + A$:G0 
TO 340 



390 

400 

410 



4 20 

430 



L$=L$+A$ 
GET#2,A$ 
L$=L$+A$ 



IFLEN(A$)=OTHEN 430 
IFA$=CHR$(24)THEN 34 



GOTO 400 

A=A+5+LEN(L$):PRINT#3,CHR$(FN 
LB(A));CHR$(FNMB(A)) ; 
440 PRINT#3,CHR$(FNLB(S+C*I));CHR 
$(FNMB(S+C*I)) ; 
450 PRINT#3,L$;CHR$(0); 

C=C+l:IFCOKTHEN 330 

PRINT#3,CHR$(0);CHR$(0);CHR$( 



CL0SE15:PRINT"D 



460 

4 70 

0); 

480 CLOSE2:CL0SE3 

ONE": END 

490 GET#2,A$:GET#2,B$:V=ASC(A$+CE 

R$(0))+ASC(B$+CHR$(0))*256: RETURN 

500 N$="":L$=L$+A$ 

510 GET#2,A$:IFA$=" "THEN 510 

520 GOTO 540 

530 GET#2,A$ 

540 IFA$<"0"ORA$>"9"THEN 560 

550 N$=N$+A$:G0T0 530 

560 IFN$=""THEN610 

570 N=VAL(N$):FORX=0T0K-l 

580 IFL(X)=NTHEN 600 

590 NEXT:PRINT"UNDEF'D LINE NO: " 

;N$:L$=L$+"O0O0":G0TO610 

600 L$=L$+STR$(X*I+S) 

610 IFA$ = '\"THEN500 

630 RETURN 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 


# 100:PK L 

# 110:OE L 

# 120: DA L 

# 130:NH L 

# 140: PI L 

# 150: OF L 

# 160: EL L 

# 170:NN L 

# 180: MI L 

# 190: MR L 

# 200 :MG L 

# 210 :BN L 

# 2 20: EH L 

# 2 30: ME L 

# 240:IA L 

# 250 :PJ L 

# 260 :AP L 

# 2 70 :GF L 

# 280 :NP L 

# 290: OH L 

# 300 :IM L 
#310:01 L 

# 320 :AK L 

# 3 30:CF L 

# 340 :JB L 

# 345:D0 L 

# 350: MP l 

# 360: EH 


INE # 370:GL 
INE # 380:IN 
INE # 390 :LK 
INE # 400: CO 
INE # 410: EN 
INE # 420:CA 
INE # 430:GK 
INE # 440:GJ 
INE # 450:AK 
INE # 460:01 
INE # 470:IA 
INE # 480: A J 
INE # 490 :CC 
INE # 500 :GL 
INE # 510 :CP 
INE # 520:CN 
INE # 530 :JB 
INE # 540:KO 
INE # 550:BM 
INE # 560:EH 
INE # 570:EF 
INE # 580 :0M 
INE # 590:D0 
INE # 600 :KP 
INE # 610:GP 
INE # 630 :IM 
INES: 54 




1 ■ 1 ■ 1 ■ I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 V t 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
1 1 1 1 1 1 1 1 1 1 1 • 1 1 1 1 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

i ii i i: i ii n i i ill l 1 II Ml 






i 1 i 1 1 i i i i i i i 1 I 1 1 1 1 i 1 1 1 I 






l i i i i i i i i i i > i 






1 1 1 l 1 l 1 l l l l l l l l 1 1 l l l l i l 






1 1 1 l i 1 1 1 1 1 i 1 1 1 i 1 1 1 

1 1 1 l i 1 1 1 l 1 1 i i i 1 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i l 






1 1 1 l l l 1 1 1 l l l l l l 1 1 l 1 1 1 1 1 
1 l 1 l l 1 l 1 l l l l l l l l l l l 1 1 1 ■ 
i i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l l 1 1 1 ■ l 
i i i l l i 1 l 1 i i i l l l l l l l l l l t 






1 i i 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 






1 1 1 1 l 1 1 1 1 l 1 l l l l l l l 1 1 l 1 i 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 





CREAT//VGVOUR 
CAVNGAMES 

Continued from page 1 7 

marker, contained in the array REf.rJ. This is set up 
in line 565. 

The setup in lines 600 to 635 is more complex 
now, too. Each ship has its own color (line 610), 
and each ship has its own row number (line 615, 
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the array VP(x) ). Line 620 randomly assigns each 
ship its starting position along its row — HP(x) — and 
its starting direction of movement — DIf.vj. Thus, the 
ocean liner will be SHS(0,x), its horizontal position 
will be HP(0). its vertical position will be VP(0), its 
color will be CLS(I). and its direction of movement 
will be DI(0). This means that we can use the same 
statement to PRINT any of the ships, just by chang- 
ing a single index variable, /; 
125 PRINT VP$(VP(I))TAB(HP(I))CL$ 
(I)SH$(I,D(I)) 

The same lines can also be used to change the 
horizontal position and direction as each ship moves 
back and forth on its row: 

105 HP(I)=HP(I)+DI(I) :IF HP(I)>RE 
(I) THEN DI(I)=-DI(I):HP(I)=RE(I) 
:G0T0 115 

110 IF HP(I)=-1 THEN HP(I)=0:DI(I 
)=-DI(I) 

115 D(I)=DI(I) :IF D(I)=-1 THEN D( 
I)=0 

Notice that there are two variables to control direc- 
tion, DIf.vJ and D(x). This is because direction is 
used two ways. DI(I) is used to change the value of 
HP(I). Therefore, to move leftward, DI(I) must 
have a value of - 1 , and a value of 1 to move 
rightward. However, in PRINTing SH$(I,D(I)), the 
second clement of the array must be a positive inte- 
ger—a value of — 1 . for leftward movement, would 
cause an error. Therefore, when the variable DI(I) 
is set to - 1 . the variable D(l) is set to 0, A little 
complicated, but it works. 

Only one more complication. We could move all 
three ships at the same speed by having the main 
loop be 

100 FOR 1=0 TO 2 

Then each time through the loop, one of the ships 
would move. But we want each movement of the 
ocean liner to be accompanied by two movements of 
the cruiser and four movements of the speedboat. 
Therefore we use the line 
100 FOR K=0 TO 6:I=X(K) 
The array X(x) has been previously set up (in line 
630) so that X(0) equals 0, X(l) and X(4) equals 1. 
and all the other values equal 2. Thus, each time 
the program completes the K loop, it has moved the 
ocean liner once (when K equaled 0), the cruiser 
twice (when K equaled 1 and when K equaled 4). 
and the speedboat four times (when K equaled 2, 3. 
5. and 6). There is a little jerkiness in the move- 
ment, but when you run the program you'll see that 
BASIC can get pretty quick movement. 

Actually, there's a trick to this. By having the 



speedboat move so often, the screen is given the il- 
lusion of speed— even though the other two ships 
move much, much more slowly. Remember, the il- 
lusion of speed is all that matters. 

YOU CAN DO BETTER THAN THIS 

This is really a very simple, unsophisticated dis- 
play. Three types of boats, a buoy, and a lighthouse 
aren't exactly a dazzling effect. But you should see 
that movement on the screen and displays with ran- 
domness and variety are easy to program. 

And for those of you who have fun with this dis- 
play routine, how about writing the few lines of 
code that would get the player's boat on the screen, 
drifting steadily upward, while the player controls 
the boat's left-and-right movement? Send in your al- 
terations to either the Moving Display or Random 
Display programs, either on disk or carefully written 
out, and we'll run the best implementation of the 
uame in a later issue. 

SEE PROGRAM LISTINGS ON PAGE 86 
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Continued from page 60 

used instead of the "I". The computer would then 
automatically write an '"cnd-of-file" character to the 
end of our file when it is closed, but for this exam- 
ple it doesn't really matter. 

The secondary address for the disk can be any 
number from 2 to 14 when we are reading or writ- 
ing a disk data File. Since the choice is arbitrary, an 
"8" was used for consistency. 

The string following the secondary address con- 
tains the File-name and (for the disk) other file in- 
formation. The file-name is used only when we 
want the computer to locate the file. Once it has 
been located, we always refer to the file by means 
of its file-number. For disk files, we included an 
"S" and a "W" to indicate that this file is a "Se- 
quential" file and that we are "Writing" to it. 

The CLOSE statement is much simpler to explain. 
The number following it tells which file we are 
done working with. Once again, we are referring to 
the file by means of its file-number. When the file 
was OPENed, the computer set aside a buffer in 
memory through which the data we wrote was gath- 
ered and transferred to the file. The CLOSE state- 
ment makes sure that nothing is left behind in the 
buffer and that the proper "end-of-file" information 
is sent to the tape or disk. It may be impossible to 
get any or all of the data back out of a file which 
was not properly CLOSEd. 
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It is good programming practice to leave files 
open only as long as necessary to access them. Al- 
though the computer doesn't flag a missing CLOSE 
statement as it does a missing NEXT, for example. 
it is a good idea to make sure that every OPEN 
statement has a corresponding CLOSE statement 
which will always be executed, if a tile-handling 
program you are working on '■bombs" and a file is 
left open, the red light on the disk drive may re- 
main on. If so. it is advisable to close any files that 
might have been opened. You can do this in the di- 
rect mode simply by typing CLOSE 8 for example. 
Tape files are not as vulnerable to mishandling as 
disk files, but you may as well use proper tech- 
niques in all your programming. 

ONWARD AND ONWARD 

Whew! Who would have thought that a three-line 
program would have required so much explanation? 
Certainly there is a lot to learn about the use of 
files, but we have already covered the majority of 
the new concepts. If you understand what we've 
done so far, then you are ready to continue. If not, 
go through the previous section one more time. 

Let's find out how to bring the data from the file 
back into the computer. There are two basic ways 
of doing that. We may GET the data from the file 
one character at a time, or we may INPUT a com- 
plete data record. 

We'll begin with the shorter method. This pro- 
gram INPUTs the data in one chunk and assigns it 
to the variable DS: 



40 OPEN 1 , 1 

50 INPUT#1, 

60 PRINT D$ 

70 CLOSE 1 



0,"FIRSTFILE" 

D$ 



If you are using the disk, change line 40 to: 
40 OPEN 8,8,8,"FIRSTFILE,S,R" 

and change the l's in lines 50 and 70 to 8's. 

Hopefully the OPEN and CLOSE statements are 
reasonably familiar. We now use a for the sec- 
ondary address to specify a "read" operation on the 
tape file. The numbers in the OPEN statement for 
the disk don't change, but the "R" for "read" re- 
places the "W" which we used previously to write 
the file. 

Here are just a couple of pointers before we con- 
tinue. Although it is generally preferable for reada- 
bility to separate terms within a program, there are 



some cases where it is not possible. Specifically the 
PRINT* and INPUT* (as well as the GET*) state- 
ments must not have a space before the "#". An- 
other thing to remember is that the number used 
with the INPUT*. PRINT*, and GET* as well as 
the CLOSE statements is always the first number in 
(he OPEN statement. That makes it easy. 

Before you run this program, rewind the tape to 
the start of the file (zero on the counter if you re- 
membered to reset it). Also either erase lines 10-30 
from the first program, or add the statement: 

5 GOTO 40 

When you type RUN with the tape version, the 
computer responds "Press Play on Tape." If you 
do just that, the recorder runs for a few seconds, 
accompanied by blankings of the video screen. Fi- 
nally the word "COMPUTER" is displayed on the 
screen followed by the READY prompt. The disk 
version gives the same icsulls without the blanking 
of the screen. 

REALLY GETTING INTO FILES 

Now let's look at a slightly more complicated but 
potentially more powerful method of inputting data 
from a file. The GET* statement, just like its key- 
board counterpart GET, reads data one character at 
a time. This program gives us some insight as to 
how a file is organized: 

40 OPEN 1,1 ,0,"FIRSTFILE" 

50 GET#1, C$ 

60 PRINT C$,ASC(C$) 

70 IF C$ < > CHR$(13) THEN 50 

80 CLOSE 1 

If you are using a disk, change line 40 (as before) to: 

40 0PEN8,8,8,"FIRSTFILE,S,R" 

Also change the l's in lines 50 and 80 to 8's. 

Properly position the tape and type RUN. Verti- 
cally down the screen are the characters of the word 
"COMPUTER" and beside each letter is its ASCII 
code, rhe last ASCII cede is 13. which represents a 
carriage return. Just as a normal PRINT statement 
puts a carriage return at the end of a statement like 

PRINT "COMPUTER" 

the PRINT* statement which created this file also 
put a CHR$(13) at the end of the file. 
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This type of program lets you examine the details 
of any sequential file. Each record in a file is separ- 
ated from the next by means of some terminator or 
separator. This separator will be either a comma. 
CHRS(44). a carriage return, CHR$(13). or a semi- 
colon, CHR$(59). 

If you know the form of the PRINTS statement(s) 
which created the file, you may use INPUT# state- 
ments) of exactly the same format. If. however, 
you are working with a file, and you don't know 
how the records are grouped, the GET# statement 
can help you dig out that information. 

Line 60 in the program above has a possible 
glitch. If a character with ASCII code is read into 
CS from the file. ASC(CS) will generate an '.'ILLE- 
GAL QUANTITY ERROR, since character is 
read as a null string instead of a true CHR$(0). 
(Try PRINT ASCr") to see what happens.) To 
protect against such a case, use ASC(C$ + CHR$(0)) 
as explained on page 342 of the Commodore 64 
Programmer's Reference Guide. 

You might add lines 75 and 100 to the program 
above: 

75 R$ = R$ + C$ 
100 PRINT RS 

This way you may build up the string character by 
character and display the results. 

The following program is a more general sequen- 
tial file investigator: 

5 REM >> GENERAL FILE READER <<< 

10 INPUT"WHAT FILE NAME";N$ 

20 OPEN 8,8,8,N$+",S,R" 

30 GET#8,A$ 

40 A=ASC(A$+CHR$(0)) 

50 PRINT A$,A 

60 C$=C$+A$ 

70 REM - CHECK FOR CARRIAGE RETUR 

N OR COMMA OR SEMI-COLON 

80 IF A<>13 AND A<>44 AND A<>59 T 

HEN 30 

90 PRINT " STRING VALUE = ";C$ 

100 N=VAL(C$) 

110 PRINT "--NUMERIC VALUE N = "; 

N 

120 PRINT " CHR$(N) = 

";CHR$(N) 
130 C$="" 

140 PRINT:PRINT"PRESS Fl TO STOP/ 
/ANY OTHER KEY TO GO" 
150 GET KB$:IF KB$="" THEN 150 



160 IF KB$OCHR$(133) 

170 CLOSE 8 -.END 



THEN 30 



This program reads each character of a specified 
sequential file. It builds up a string from the charac- 
ters until a carriage return, a comma, or a semi- 
colon is found. It prints the string, the numeric val- 
ue of the string, and the ASCII character with that 
numeric value. 

If you hold down the space bar, the entire file is 
displayed. You may stop the program and close the 
file by pressing fl . If the program reads beyond the 
end of the file, the screen scrolls continuously since 
no more separators are found. Press the RUN/STOP 
key to stop the program if that happens. 

For tape files, change line 20 as follows: 

20 OPEN 1,1 ,0,N$ 

Also change the 8"s in lines 30 and 170 to l's. 
With tapes it is not necessary to specify the file- 
name. If you just press < RETURN >, the program 
will read the first file it finds (either data or pro- 
gram files). If you have both disks and tapes, be 
sure that the disk Wedge is not installed when you 
work with tape files. There are incompatibilities be- 
tween the two. If the Wedge is installed, type @Q 
to exit it. 

For more advanced investigations into files, you 
might change the "S" in line 20 to "P" in the disk 
version. This will allow you to read and display the 
contents of program files rather than data files. The 
tape version will not need any changes to read ei- 
ther type of file. You might want to put a statement 
similar to line 150 after line 30 so that you can 
more easily step through the file. You will find that 
the separators that line 80 looks for are less com- 
mon in program files. Also you may want to "fil- 
ter" out some of the character codes which will dis- 
rupt the color setup on your display. (A color com- 
bination of white letters on a white background 
would provide less than useful information.) 

Hopefully you have learned enough about files to 
be able to write and then read the confidential file 
described at the beginning of this article. Unfortun- 
ately, that will get you only part of the way to the 
goal. There is still the problem of deciphering the 
file once you have read it. 

Put your cryptoanalytical powers and file-handling 
abilities to work. See if you can write a program 
which will read Confidential File 3X501 and proper- 
ly decode it. You will know when your answer is 
correct! □ 
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EDUCATIONAL 
SOFTWARE 

Continued from page 66 

Inabeth Miller, the librarian for the faculty of 
education at Harvard, says that in the schools, Logo 
will be one of the two most important pieces of 
educational software, along with word processing 
programs. Commodore has its own version of Logo 
for the C-64. It includes turtle graphics commands 
and also has sophisticated programming features for 
manipulating text. Another turtle graphics environ- 
ment is available in Tamarack Software's Vanilla 
PILOT. Short for programmed inquiry, learning or 
teaching, PILOT began at the University of Califor- 
nia Medical Center as an authoring language for 
computer-assisted instruction. When Logo became 
popular, versions of PILOT with turtle graphics 
were developed. Today, the line between the two 
languages has faded. 

Spinnaker's president. David Seuss, praises turtle 
graphics but finds little value in the text manipula- 
tion capabilities of Logo. He feels that those capa- 
bilities, founded on research in artificial intelli- 
gence, are unnecessary overhead for Logo's turtle 
graphics. These opinions are evident in Spinnaker's 
Delta Drawing: a turtle graphics environment for 
even very young children. Single keystrokes — D for 
draw, R for turn right— make the turtle respond im- 
mediately. Your child can program by watching the 
turtle rather than by typing a list of commands 
which "should' do what he wants. In Delta Draw- 
ing, he can toggle to a screen which lists all the 
commands he has typed, but children usually start 
by just watching the turtle obey their commands. 

Whatever category of educational software you 
choose for your child — drill and practice, tutorial, 
simulation, or problem solving— consider the child's 
interests, needs and abilities. If all three areas are 
weak (the child has no interest in the subject. 



doesn't need to know it, and lacks the ability to 
learn it), move on. It is as often the presentation of 
the subject which peaks a child's interest as it is the 
subject. 'This program looks neat!" If a particular 
method of presentation can encourage your child to 
learn, more power to it. 



Programs mentioned in this article: 

Chaterbee. Tronix. 8295 South La Cienica Boulevard. Culver City, CA 
90.101 1213-215-0529). $39.95; di-,k. 

Commdore Logo (grades 2 and up). Commodore. Inc., 1200 Wilson 
Drive, West Chester. PA 19380 (215-431-9100). $59.00; disk. 

Computer Preparation/SAT. Hareourt Brace Jovanovich, Inc.. 757 Third 
Avenue. New York. NY 10017 (212-888^43031. $79.95 for 2 disks and 
workbook. 

Delta Drawing and Trains, Spinnaker Software Corp,, 215 First Street. 
Cambridge. MA 02142 (617-868-4700). S39.95; cartridge. 

Dragon's Keep (grades 2 lo 4). Sierra On-Line. Inc.. Sierra On-Line 
Building. Coarsegold, CA 93614 (219-683-6858). S29.95; disk. 

Early Music Games, Counterpoint Software, Inc., Suite 140 Shelard 
Plaza North. Minneapolis. MN 55426 (612-544-472(1). $29.95: disk. 

Tlie Factory (crades 4 to adult). Sunburst Communications, Inc.. 39 
Washington Avenue. Pletisamvillc. NY 10570 (800-431-6616), $49.00 
disk with backup and teacher's guide. 

Fay: V>e Wont Hunter (grades 3 lo 10). Didutedi Software, 549-810 
West Broadway, Vancouver. B.C.. Canada V5Z 4C9 (604-687-3468). 
£34.95; disk. 

Lt)i>o Locomotion (requires Commodore Logo). Computer Literacy 
Associates. P.O. Box 254. Sherborn. MA 01770 (617-655-4856). $23.95: 
disk. 

SAT Review, Moses Engineering, P.O. Box I 1038. Ardmorc Highway. 
Kunisvitlc. AL 35805 (205-837-3356). $30.00 for 5 cassettes. 

Space Rescue, HesWare. 150 North Hill Drive. Brisbane. CA 94005 
(800-624-2442). S39.95; disk. 

Special Learning Eii Software (spelling) (grades 4 and up). SLED Soft- 
ware, P.O. Box 16322. Minneapolis. MN 55416 (612-926-5820). $199 
for 2 disks or 26 tapes. 

Speed Reader II (all grades). Davidson & Associates. 6069 Groveoak 
Place # 12. Rancho Palos Verdes, CA 90274 (213-373-9473). $69.95 for 
program disk and 1 dala disk. SI9.95 for additional data disks. 

Vanilla PILOT, Tainarak Software. Darby, MT 59829 (406-821-4596) 
$29.95: cassette or disk. 
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UNRAVELING 

THE MYSTERIES 
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MICRO-MINDER! 
THE TERRIBLE TWINS! 

AND OTHER VC AND 64 
PROGRAMS 



CARDCO Letter Quality Printers 

"Commodore-ready", PLUS ... > 



An excellent line of Letter Quality PRINTERS are 
ready foryou and "Commodore-ready", PLUS . . . 
compatible input for PC, PC jr., TRS-80 and a 
host of other personal computers. 

All three CARDCO PRINTERS are true letter quality 
printers, bi-directional with continuous printing 
capability, for computers with Centronics 
parallel output, of excellent quality, standard 
friction-feed, designed in attractive neutral to 
blend with any decor in your office, home or 
business. The fine letter quality is suited for 
personal or business use, ideal for word 
processing applications including subscript, 
supersubscript and bold-typing. 



Priced attractively and much lower than you 
expect. 

• Model LQ/1 ... 13" carriage, daisy wheel 

type, printing speed 14 
cps. 

• Model LQ/2 . . . 8V2" carriage, drumhead 

design, printing speed 12 
cps. 

• Model LQ/3 ...11" carriage, daisy wheel 

type, printing speed 13 
cps. 

Write for illustrated literature and prices or 
see CARDCO Computer Accessories and 
Software wherever Computers are sold. 





cardco, inc. 

300S.Topeka Wichita, Kansas 67202 (31 1 

"The world's largest manufacturer of Commodore accessories." 



Commodore"" is a registered trademark ot Commodore Business Systems. Inc. 



Reader Service No, 36 
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CADPIC IS THE TOTAL COMPUTER-AIDED DESIGN PACKAGE FOR THE C-64 



TM 



• EDUCATION - LEARN PAINTING, GRAPHIC DESIGN AND DRAFTING IN FULL COLOR 

• FUN - DRAW & PRINT CARTOONS, COMIC'STRIPS, COLORING-IN & MICRON EYE™ CAMERA PICTURES 

• BUSINESS - GRAPHICS OF EVERY KIND, SHADED PRINTOUT, COMPUTER COLOR SEPARATIONS, ADS 

• HOBBY - TAPESTRY, EMBROIDERY, HOOKED RUG DESIGNS, AND, OF COURSE, 16 COLOR PAINTING 

PAINTPIC™ available on Diskette for $39.95 

Create 1 6 color paintings / Pens& brushes for special effects / Draw with CRSR or Joysticl 
/ Automatic shapes (filled & unfilled) / Perspective & Home points / Copying / Mirroring / 
Rotation / Halving / Doubling , Load & save pictures or blocks / Lots of help screens. 
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VENUS" BY VELAZQUEZ, A PAINTPIC IMAGE 



PRINTAPIC™ Available on Diskette forS44.95 

Print Paintpic pictures in advanced grey shades or high-resolution black & white 

Tapestry. Embroidery, Hooked Rug, 'Paint by number' prints / Convert and 
print Micron " images / Color separations for publication, Ads, business reports 
' Works for most printers / Includes 'Venus' above, and helicopter. 



TOGETHER AS CADPIC, FOR ONLY $79.95 - THERE'S NOTHING LIKE ITU 



GIANT COMPUTER 
ART PRINTS 

NOW YOU CAN GET "ROOM"/ 
"STORM" AND "HOLYLAND" 
IN 20"x 24"POSTERS 




$8.95 EACH i $1.00 POSTAGE 
I AND HANDLING OR, SET OF 
7 ■< 3 FOR 525 POSTAGE FREE 



CADPIC™ comes with complete instructions. Payment in advance in U.S. Dollars 
by check or money order or via VISA, AMEX. Add $2.00 postage and handling. 
California residents add 6% sales tax, Paintpic available on cassette $35. 
Dealer Enquiries Welcome. Product Brochure. Phone 714-261-5114 

MicronEye is a trademark of Microti Technology. Inc. Commodore 64 is a trademark ol Commodore Electronics. Ltd. 
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